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Dilwyn Jones 


The big news this month is the announcement by a group of Italian 
QLers including Giorgio Garibello (who set up the Quantum Ring group 
of QL-related websites} of a website dedicated to freely downloadable 
QL software. Those connected to the internet will be able to download 
about 80MB of freeware, shareware and demo versions of QL pro- 
grams. 


The internet is already rich with QL related websites and software to 
download, but this nonprofit making site (available in both Italian and 
English language versions} will give the QL a one stop source of free 
software rather like the repositories available to users of other compu- 
ters. In addition to free downloads, users and authors will be able to 
offer software for upload, giving QL software writers a one-stop facil- 
ty to offer their programs to the QL using public. This site, in conjunc- 
tion with the established QL PD libraries, should encourage and pro- 
mote the wealth of free QL software available (Jon Dent - another hint 
to complete SOQL!). The owners of the site are to be congratulated 
too on their clear and firm stance against including illegal and offensive 
material {including the pornographic and other files which seem ever 
prevalent on most of the internet but thankfully not a problem so far on 
the QL scene). 


Partly inspired by the above announcement, and partly due to encou 
ragement from a few other QLers, | have now decided to set up a PD 
software disk copying service. It is increasingly becoming easier to 
obtain OL software free from the internet, but those QLers without 
internet access still need a source of PD software on disk, so | have 
decided to start my own service - see my announcement in the news 
pages, and please note that it is my own venture, unconnected with 
QL Today or JMS. 


With Peter Graf's replies to the Q40/Q60/emulators debate in this 
issue we now hope to draw a close on this saga. Opinions varied, 
debate was open and frank and at times heated, but at least it's been 
given a good airing and hopefully cleared the air a bit. Peter and Claus 
Graf can be confident that many readers back them in their efforts to 
produce quality QL hardware and software. It seems apparent that 
most people believe that Q40, Q60 and Goldfire are the (essential) 
future of native QL hardware, while the emulators have a role to play 
as well. 


With the awful events in the USA in September still in our minds, 

we at QL Today (and I'm sure we speak for the whole QL community 
in Europe} would like to express our deepest, if somewhat belated, 
condolences to our friends in the USA. You will always be in our 
thoughts. 
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The DEMO VERSIONS 
Cover Disk 


With Volume 6 Issue 3 of QL Today, we bring you 
a disk with demonstration versions of seven 
commercially available QL software packages. 
Most of these programs are fully working ver- 
sions of these programs, but with some restric- 
tions on their use (e.g. saving or printing may be 
disabled, or the programs may only work with 
restricted file sizes or numbers of files). If you like 
these demo versions, please consider buying 
the full versions of the programs from the QL 
software traders. The more they sell, the more 
they are likely to produce! 

Many of the programs require pointer environ- 
ment (built into SMSQE of course, and the files 
ptr_gen, wman and hot_rext for QDOS), Menu 
Extension (MENU_REXT supplied with many 
commercial QL programs) and Toolkit 2 which is 
built into most modern QL systems. 

The seven demo programs are all supplied in 
zipped file format. This means that they have 
been packed and compressed using a program 
called ZIP to allow more programs to be supplied 
on this disk. You need a copy of the Unzip 
program to decode these files, so (thoughtfully!) | 
have provided a copy of that program along with 
a short SuperBASIC program called BOOT which 
you should LRUN to start decoding the seven 
program zip files. 

You will need a separate blank, formatted disk for 
all 7 programs (or as many of them as you plan 
to try out). Put the cover disk (or preferably a 
backup copy of it) in FLPi_ and the blank, 
formatted disk in FLP2_. If you have only a single 
floppy drive system as | do, you will need to 
unzip the files to a ramdisk or hard disk first, then 
transfer them back to a floppy disk. 

The program asks you to select one of the 
seven programs by entering the number shown 
on screen (type in a number from i to 7 and 
press ENTER). Then it asks you to enter the 
name of the drive holding the zipped file (eg. 
FLPt_), then the name of the drive to unzip it to 
(e.g. RAMI_ or FLP2_) and finally the name of the 
drive holding the UNZIP program itself (eg. 
FLPt_). Unzip will load and attempt to 
decompress the files. This may take some time, 
depending on the speed of your QL system. 

QL Unzip is maintained by Jonathan Hudson and 
full documentation, up to date file sets etc can be 
obtained from his website on www.daria.co.uk 


QL-9-PC DEMO VERSION 
Author: Geoff Wicks, of Just Words 
Price: £10.00 from Just Words or 
QBranch 
Documentation: QL2PCman_doc (Quill doc file 
which includes tutorial) 
Expanded memory, pointer 
environment and Toolkit 2 
QL-2-PC is a program for transferring word pro- 
cessing files between QL and PC word proces- 
sors and PC HTML editors. The QL files to be 
transferred can be in Quill, Text 87, Perfection or 
ASCIl format. The PC files can only be in ASCII 
format. The program also contains experimental 
routines for extracting the text message from 
e-mail files, and for tidying up text that is OCR 
read, or has been downloaded from the internet. 
The demo version is a fully working version of 
the program with just one restriction. You can 
load a document of any length into the demo 
version, but it will only transfer the first 3,000 
bytes, about 500 to 600 words. The transfer can 
create a pseudo WordPerfect 4.2 file for DOS, or 
Rich Text Format (RTF) and Hyperlext Markup 
Language (HTML) for Windows. 


INFORMATION SCREEN 2 - Press ANY KEY for next screen or ESC to end. 


Requirements: 


| USTIFICATION: 


DISKMATE 5 DEMO VERSION 

Author: Pal Monstad of PM Data 

Price: £16.50 from QBranch 

Documentation: dm5_demo-_ixt (plain text file) 

Requirements: Pointer environment, Menu ex- 
tension and Toolkit 2 
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Diskmate 5 is a simple to use disk and file hanc- 
ling program, geared to handling directories, and 
giving you disk and system information. The 
demo version is limited to letting you work with 
no more than 10 files. To start the program you 
need to LRESPR the extensions_cde file as well 
as ensuring that the pointer environment and 
menu extensions are available. then execute the 
dm5_demo_obj program. Place a disk (eg. the 
DiskMate 5 demo disk!) in a drive and explore the 
program's commands and capabilities. It's quite 
esi and intuitive to learn! 
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SUQCESS DEMO VERSION 

Author: Wolfgang Uhlig 

Price: £25.00 from QBranch or JMS 

Documentation: READMEFIRST_txt (plain text 
file) 

Requirements: DBAS system (supplied), Poin- 


ter environment, Menu Exten- 

sion v7.50 or later. 
This is a demonstration version of a database 
application by Wolfgang Uhlig, based on the 
DBAS database engine system from DWHowells. 
It has the limitation that changes are not written 
out to the database, but most other facilities in it 
work. Before attempting to execute the 
Suqcessirial_obj program, you should LRESPR 
the DBAS_SYS file and configure the 
Sugqcessirial_obj program with a copy of the 
Config or MenuConfig programs, to tell the 
program the directory where it will find its 
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SUQCESS_INF file. This is also where the helo 
file SUQhelp_dat should be located in order to 
allow the program to give online help. 

An example database file called "northwind_cbs” 
is supplied to let you play with the program to 
find its capabilities. 

For more information about Sugcess, see Tim 
Swenson’s review in Volume 5 Issue 1 of QL 
oe 
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QROUTE DEMO VERSION 

Author: Brian Henderson (ST version), 
Rich Mellor (QL version) 

Price: £25.00 from QBranch or 
RWAP Software 

Documentation: README_txt, UPDATES _txt, 
PDmanual_txt (plain text) 

Requirements: At least 896K memory, Toolkit 
2, Pointer environment, Menu 
extensions 

Important: after unzipping the program, you 


MUST rename four files to have full stop filename 
separators instead of QL style underscores (this 
is for compatibility with files from the Atari 
version). The files concerned are: BRITAIN_SEA, 
BRITAIN-MAP FINDER21_INF and MAIN_MEN and 
they should be renamed to BRITAINSEA, 
BRHAINMAP FINDER2LINF and MAIN.MEN 
respectively. 

QRoute is a route finder program based on 
Route Finder v2.2, an Atari ST program by Brian 
Henderson, converted to the QL by Rich Mellor 
of RWAP Software. 

At its simplest level, this sort of program will tell 
you how to get from A to B, allowing you to 
specify quickest route or shortest route. On a 
more advanced level, you can specify places to 
avoid (don't tempt me!) or places to go by, with 
the route details shown graphically as a map or 
as a text table. 

This demo version cannot save maps, print 
routes or find routes of more than 100 miles, and 
there is a delay built into the Find Route routine. 
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A single map of Britain is supplied with this 
version. 
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SPY DEMO VERSION 

Author: Richard Howe 

Price: Standard version £15.00, 
Master Spy £30.00 from 
QBranch 


Documentation: README (plain text file) 
Requirements: None specified 

An updated version of an old favourite from ARK. 
Spy is a text editor compact, fast and simple to 
use. If is not pointer driven but very useful none- 
theless. The demo comes in two versions, one 
for use with TV display mode, the other for 
monitor mode. 

This demo version is basically the full version of 
Spy but without the File and Block ‘Write’ com- 
mands (in other words, you can't save anything). 
Once in the editor press Fi for on-screen help. 
First, read the ‘README’ text file for instructions. 
Spy is primarily a programmer's editor and does 
not pretend to be a word processor, although like 
most editors it can be used to type simpie letters 
and so on. Spy can load text or binary files, can 
multitask with other programs and can read and 
stack as many files as your hardware can cope 
with. 

Note how scrolling works - when you first use 
the program, you may be a little confused when 
you try to scroll the cursor off the visible screen 
and only one line changes. This is for faster 
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scrolling - let go of the cursor keys and the 
whole screen of text is then redrawn 


EASYBASE DATABASE PROGRAM 


DEMO 

Author: Dilwyn Jones 

Price: £15.00 from Q-Celt Computing 
in Ireland 


Documentation: EasyBasi_doc, EasyBas2_doc, 
EasyBas3_doc 

Expanded memory, Menu ex- 
tension (Menu_rext only requi- 
red if copying entries to Scrap) 
A simple to use non-pointer driven database 
system with built in printing facilities for labelling 
etc. The Save, Export and Print commands are 
disabled in this demo version, but everything else 
works and a full manual and example databases 
are supplied for you to experiment with the pro- 
gram. The full version of EasyBase offers com- 
prehensive printing, importing, exporting, pass- 
word protection and many other features, as well 
as the usual database facilities. It is designed to 
be simple to use, with just the right features and 
facilities and nothing more. Handles up to 100 
fields (or lines} of information per record, with files 
based in memory for speed and less likelihood of 
disasters with open disk based files! Specify your 
own database structure. Although the program is 
not pointer driven it can use higher resolution 
screens by changing its own window height to 
let you view more of databases with large 


Requirements: 
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CUESHELL DEMO 
Author: Albin Hessler 
Price: £20.00 from QBranch 


Documentation: README (plain text file) 
Requirements: Toolkit 2, pointer environment, 
menu extension 

A comprehensive and very impressive pointer 
driven file handling, job handling and system 
setting utility. CueShell is mostly icon-controlled 
with the row of icons across the top of the 
program's display. 

To access the devices list, right click (DO) on the 
name of the drive in the deviuce names 
(‘DEVICES’) box in the main window. Another 
window will pop up with a list of files in it. Click on 
the icon next to the filename (the icon identifies 
the type of the file) eg. the README file on the 


NEW PD Software Library 

Your friendly editor has decided to set up his 
very own PD software library service for the QL 
(albeit with a bit of prompting from certain other 
notables on the QL scene). 

While preparing the QL Emulators CD | acquired 
hundreds of items of freeware, shareware, PD, cha- 
rityware, cardware and demo versions of com- 
mercial QL software, so what with the announce- 
ment by Giorgio Garabello of a massive repository 
of free QL software available via the web (see his 
news item elsewhere in this issue) if occurred to 
me that while those of us fortunate enough to 
have internet access can now obtain QL software 
free from the web, those less fortunate do not 
have such ready access. So the Dilwyn Jones PD 
Software Library is born. Please note that this is 
unconnected with QL Today or JMS. 
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CueShell demo disk, then click on the magnifying 
glass symbol under it to view the file. Click on 
the X symbol to exit the files list. 

The program has a limited form of drag and drop 
capability for copying whole disks or directories. 
Left click on a drive or directory name to indicate 
where to copy files from, then right click or DO 
on a ramdisk name for example to indicate the 
destination. 

incidentally, it's not very obvious - to quit from the 
program, click on the ‘CueShell’ program title at 
the top of the screen, then select the Quit 
command. 

This demo version cannot copy and delete files, 
but all other facilities work. There is so much in 
this program that it will take you a while to figure 
it all out given the lack of instructions, but believe 
me CueShell is well worth the effort. 


Disks can be copied for you at a charge of £1.00 
per disk if | supply the disk, or 75pence if you 
supply the disk. Catalogues are available either 
on disk (send me a blank formatted disk), or by 
email on request, or download it from my website 
www.soft.net.uk/dj/index.html 


Library disks will be supplied on HD disks unless 
DD disks are specifically requested. DD disks are 
harder to obtain at the moment, so I'll keep those 
for QLers unable to use HD disks! 

ll also be able to supply some of the QL 
CD-ROMs | prepared for Q-Celt Computing - 
namely the QL Emulators CD, QL Religion CD, QL 
Line Design Clipart CD plus Gerhard Plavec's QL 
PD=GD: 

Dilwyn Jones, 

41 Bro Emrys, 

Tal-y-bont, 

Bangor, 

Gwynedd, LL57 3YT, 

U.K. 

Email: dilwyn.jones@dj.softnet.co.uk 

Website: http://www.soft.net.uk/dij/index.htmi 
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Q-CELT Computing News 

With the release of the latest version of the 
uQLx emulator the QL Emulators CD has now 
reached version 1.15. 

Release 1.5 of the DJ Bargain Bundle CD is now 
out. Version 1.1 updated the EasyBase database 
system to version 0.65, version 1.2 added the 
Doc2Himl program for creating simple web 
pages, while version 1.3 added several programs 
such as Dictionary, Today, Translation and a 
couple of gambling programs, then version 1.4 
added some new pointer driven utility programs 
like Metric Conversions, Unzip Librarian and the 
SystemSet utility, Finally version 15 added a 
simple temperature unit conversion — utility 
Upgrades are available from any version to the 
current 1.5 as usual. 

The Spectrum Emulator CD by Darren Branagh, 
which contains the ZeXcel Spectrum Emulator 
for the QL by Ergon Development (now 
Freeware) and several thousand Spectrum 
games, Demos and Utilities, is now out and fully 
available - it will be launched at the Byfleet 
Show on the 23rd Of September Also Phoebus 
Dokos’s adventure game CD_ containing 
hundreds of InfoCom ZIP text adventure games 
for use with the QL version of the ZIP 
interpreter (included on the CD too) is now 
ready. This has a very elaborate full colour CD 
sleeve designed by Phoebus (he is a graphic 
artist by trade) It will also include a 37Mb (yes, 
37Mb!) Animation sequence at the start of 
BOOT on the CD (worth seeing!) The first 
release will also be for sale at Byfleet for the 
special introductory price of just £8, with 50% of 
the profits going to childrens charities. 
Consideration is being given to producing a 
ZX81 Emulator CD as well (would you like to turn 
your QL into a Spectrum or ZX81???) This is in 
the production stages, and work is being done 
on gleening several hundred ZX81 programs 
from the Internet, so expect this to surface in 
the next couple of months. 

Q-Celt are also looking into producing a large 
PD QL Encyclopedia on CD. There are several 
Public domain PC encyclopedias out there, 
which would need converting to QL format, so if 
you would be interested in one of these please 
contact us and we will look into producing it. We 
would also welcome any ideas for future CD's 
and/or alternative products from our customers. 
lf you would like to see us produce something, 
then please contact us. 


News from RWAP SOFTWARE 

Rich Mellor 

We are looking to expand our range of software 
and would welcome any submissions for pos- 
sible commercial publication, or even ideas for 
future products. 

We have one or two ideas in mind, in particular a 
new word game (pointer driven) and converting 
Q-Route fo compile under the latest version of 
Turbo (using its PTR interface). 

If anyone is interested in helping out with the 
programming in return for a few royalties and the 
ever grateful thanks of QL users, please let us 
know. 

Replies/submissions should be sent by snail-mail 
(sorry, no real email access) to: 

RWAP Software 

7 Common Road 

Kinsley 

Pontefract 

West Yorkshire 

WF9 5JR 

TEL: +44 (0) 1977 614299 


NESQLUG Articles 

Al Boehm 

In the July Virtual Meeting conducted by email, 
NESQLUG voted to upload all articles as soon as 
they were edited onto their website: 
www.geocities.com/nesalug1/ 

These articles will be available in an open section 
where anyone, member or not, can browse them. 
Members will be notified by email of the title 
when a new article is uploaded. A quarterly 
journal will be published containing all the 
technical articles for members who want a paper 
copy or do not have web access. Also Quanta 
has the option of publishing those articles with 
wider interest. 


News from GEORGE GWILT 

George Gwilt has written to let me know of 
updates to his range of QL software. Most of the 
programs are available from 
www.soft.net.uk/dj/software/software.himl 


GWASS v1.14 

GWASS vii4 allows filenames used in batch 
mode to contain all characters except forward 
Slash °/”. 


MOVING PROGRAMS 

New versions of the following programs have 
been produced so that they can now be moved 
around the screen when F9 (SHIFT F4) is pressed. 


QL feday 


1. NET_PEEK v3.31 
Displays ram 
2. DISP3 v3.9 
Displays up to 9 directories 
3. GWDISS v2.23 
Disassembles all 68xxx instructions 
4 SYM1_BIN v2.9 
Decodes the symbol file produced by GWASS 


TurboPTR 

A new version of TurboPTR caters for buttons. 
The procedure Do_Sleep has been added to 
TPTR_BAS v3.5 which automatically sets a 
program to a button and returns it when the 
button is hit. The button will be a valid entry in 
the button frame if that exists, otherwise it will 
appear at the top left of the screen. 

The extensions loaded by TPTR v28 now 
include the functions: 


MODE% returns the mode (4, 8, 33 etc) 
PNAME$ returns the current job name 
BFRAME returns a position in the button frame 


and the procedure: 
BFREE frees the position in the button frame. 


SETF v3.2, which enables windows to be set up: 

a) produces a second repeated section for the 
first main window. (This is needed to produce 
the button) 

b) can now be aborted at any stage by pressing 
ESC. 

Part of the TurboPTR package is a sleep sprite. 

This now contains a mode 8 version. 


SEEWINI v2.2 displays all repeated 
sections of all windows. Thus it will 
display the button window produced by 
SETE 


ALTER v 3.1 now caters for repeated Y (cab aiaseeelina fe 
sections of main windows. \, previous life too, you know _/ 

Ny pees 
DIGIVIEW ™. em _ anise 
DIGIVIEW is a program to view pictures a / {suppose that makes | 
from and to manipulate Kodak digital a x you a serial mouse / 


cameras. At the moment it caters for 
DC200, DC210 and DC2i5. It is in the 
course of testing and being extended to 
other marks of Kodak digital camera. The 
program is based on Simon Goodwin's 
DIGICAM_BAS. The testing version 
number is now 1.3. 


TURBO V4.10 
Version 4 Release 10 of Turbo Compiler is 
now available from the Other Software 
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Page on the Dilwyn Jones website. George Gwilt 
lists the following changes to previous versions: 
1. The BAUD command can now take more than 
i parameter as required to work with the 
independent baud rates allowed by SMSQ/E. 

2. CONTINUE is now accepted. Previously it was 
rejected with the cryptic error message "End Of 
Statement Expected’ 

3. END_WHEN is now accepted as an alternative 
to END WHEN (useful for QLers using pre-JS 
QLs) 

4. Trailing windows have been eliminated 

The initial release managed to include the wrong 
version in its config block, so make sure you get 
the fixed version which includes a program to 
patch the details. 

Further details in the UPDATE_TEXT file with the 
compiler on my website. 
http://www.soft.net.uk/dj/software/other/other.html 


J-M-S News 

And once again | would like to invite everybody 
to join the QL News List. Here you will be 
informed about News and Updates, QL Shows 
etc. You won't receive masses of Email, an 
average of 1 to 3 per month. 

lf you would like to join, send an email to 
smsq@j-m-s.com, subject “subscribe” and a text 
like "yes, I'd like to joing the QL News list’. 

It is maintained manually by me. 

Please note: if you change your email address 
and news bounce, | have to remove the address 
from the list. | can't trace changed addresses, so 
please notify! 


TRE Mice 
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Different viewpoints 


Peter Graf 


In QL Today | found my latest 
articles accompanied by high- 
lighted frames telling the rea- 
ders in bold printed text, that 
my words were harsh, that | 
had attacked others, and so on. 
That would not be too much of 
a problem, if the author of 
these accusations had pu- 
blished his negative judge- 
ments about me as his perso- 
nal view, telling his own name. 
But this way it is a official for 
QL Today. It shows that my 
contributions are merely tolera- 
ted, and officially condemned, 
while articles with insulting 
words against QL hardware 
users are welcome. This com- 
bination is not acceptable, and | 
consider not to write any fur- 
ther contributions for QL Today, 
Remember, | never used words 
like "slap in the face’, “arrogant” 
and ‘unbelievably stupid” for 
others. | never claimed to have 
the only answer for the future 
of the QL. | never attacked 
other's favorite systems with 
wrong statements. And | didn't 
start the argument. The authors 
responsible for all that, could 
freely do so, and | did not find 
such official comments by QL 
Today for their — articles. 
Shouldn't it be up to the rea- 
ders to decide, whose words 
were harsh, and who has 
attacked? 

In the given situation, | think it is 
better not to answer the 
articles of the QPC dealers, 
who are at the same time QL 
Today officers. | am thankful 
that they contribute so much 
work to create a QL magazine. 
Therefore | think their time is 
better spend with that work, 
instead of answering all the 
points where | must disagree. 
Wolfgang Uhlig has nothing to 
offer but to call me a member 
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of a ‘clan’ where one writes 
‘ridiculous nonsense’. 


So | start with Jim & 
Hunkins: Nobody said § 
or thought that *all* 
major software de- 
velopment was done 
on native hardware. 
So we con't disagree. 
lf an emulator helps 
you, this is, of course, 
fine. Portable com- 
puting is no natural advantage 
of emulators, though. The low 
power consumption of a Q60 
shows, that native hardware 
would be very well suited for a 
portable QL compatible com- 
puter It could be faster and 
consume less power than a PC 
laptop with emulator An inter- 
esting project, but not afforda- 
ble and impossible to produce, 
if there are only a handful of 
people who want it, and the 
rest prefer emulators. The less 
folks go for QL hardware, the 
less we can do. 


Steve Hall: User perception is 
indeed what matters. But gene- 
ral statements like “system A Is 
appreciably faster than system 
B’ can not be based on the 
perception of one single user 
(who runs system B in a 
slowed-down mode). If we want 
to compare, we must compare 
based on facts - or better not 
compare at all. 

You say that QPC2 on an 
up-to-date PC gives you "hard- 
ware expansion only limited by 
what is currently available’, 
while you call the Q40 “limited”. 
Here you are completely 
wrong. If PC hardware exten- 
sions run under Windows, that 
does not mean they run under 
QPC. Neither QPC nor SMSQ 
support all those PC stuff. You 


would need hundreds of new 
drivers. And even if you want 
to write all those drivers 


yourself, you can hardly do that 
under QPC2, because you 
don't have direct control over 
the hardware 


from — within 


The prototype Q60 in a Minis-QL type case . 


QPC2. You would need to 
change QPC2 itself, but it is not 
open-source-software, so you 
can hardly do. 

If |look at the current situation, | 
do not see that Q40 and Q60 
have disadvantages concern- 
ing supported extensions un- 
der SMSQ/E. | see the oppo- 
site. For example, the CDROM 
drivers don't run under QPC, 
but on Q40 and Q60. The 
sampled sound drivers don't 
run under QPC, but on Q40 and 
Q60. | don't write this to criti- 
cize QPC, just to correct the 
negative perspective toward 
the Q40. 

You call QPC+Windows+PC "a 
fast QL". | have my doubts if | 
would call a QL that needs 
minutes to boot SMSQ/E “fast”. 
However, there is a difference 
between “fast” and ‘faster’. If 
somebody wants to be “faster’ 
he will probably go for a Q40 
or Q60. Even if you sell your 
car to afford the most expen- 
sive Windows PC available to- 
day, you have no chance of 
reaching the Q60's computing 
speed under QPC. There are 
advantages of QL hardware. 
Not only for purists and "Wintel- 
phobes’, as you wrote, but also 
for realistic QL users and deve- 
lopers. 
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Marcel Kilgus: Obviously nobo- 
dy said, that QPC users were 
not part of the QL community. 
To deny that a Windows PC is 
a QL (just because it can run an 
emulator), offends nobody A 
PC can emulate a gameboy as 
well as a QL. Do the Gameboy 
users have to apologize, if they 
think a PC is not a gameboy? 
Like Claus has to apologize, if 
he thinks a PC is not a QL? 
You say that a Windows PC 
with QPC is a QL system. So it 
is surprising that you claim 
QPC does not emulate “any 
hardware on the planet’, Le. not 
even the QL! Maybe lets look 
at a simple example. What 
happens, if | use the assembler 
instruction “MOVEW #$FFFF 
$20000" under QPC? | thought, 
it first emulates the 68000 
processor hardware in order to 
execute the instruction, it then 
emulates the QL video hard- 
ware in order to translate the 
data into PC screen data, it 
then sends a call to the Win- 
dows operating system, which 
then calls a driver software. (If | 
had my driver working correct- 
ly) the PC graphics card then 
sends a small white line to the 
screen. | thought it worked this 
way, and would call it emulation 
of the missing hardware. But 
according to what you say, | 
must be wrong. QPC must 
really be a miracle beyond my 
imagination. 


A picture of the author's Q60 system 
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You say that a Q40 is not hard- 
ware compatible to the QL. So 
what happens, if | use "MOVEW 
HSFFFE $20000° on a Q40 or 
Q60? The CPU executes the 
instruction directly and the 
video hardware directly shows 
a small white line on the 
screen. The same happens on 
a QL or GC or SGC system. 
Like the Q40, GC and SGC also 
have adapted operating sys- 
tems and new features, so 
“hardware compatible” can ne- 
ver mean “exactly equal’. But 
compared to Ataris and 
Amigas, let alone PCs, 
shouldn't we be allowed to call 
QL style hardware "hardware 
compatible’? 
lt seems like a Windows PC 
that can run an emulator must 
be called "a QL’ (otherwise one 
has to apologize), while QL 
hardware is not even allowed 
to be called “hardware compa- 
tible to the QL’. Sorry, this 
becomes too complicated for 
me. | thought computers were 
computers and emulators were 
emulators. 
| can not confirm your bench- 
mark figures, latest SMSQ/E 
versions. Test909-graphics 
gives me factor 2.5 for Q40, 
not for QPC. Test909-Math 
gives advantage for QPC 
indeed. Little wonder, since you 
added Intel FPU code to 
SMSQ/E, but not 680x0 FPU 
code. By the way, instead of 
only publishing two sub-results 
of this bench- 
mark, how 
about the ove- 
rall result of 
Test909: | got 
factor 4 for 
fQ40 there. 
compared to a 
1200 MHz 
Athlon/Rage- 
Pro. Forgive 
me that | 
switched the 
copyback 


cache on, for both targets, and 
not only for the PC. 

Regarding audio input: Fine that 
my remarks "made your day’, 
but | can not find anything ridi- 
culous about using a sound- 
card for LINE/MIC-In and the 
IDE bus for CD-in. Nobody 
wrote SMSQ/E_ software for 
this, but software was not the 
issue. The Q60 mainboard was 
said to be the problem, and a 
new mainboard was proposed. 
Who would complain that a PC 
has no sound input, just be- 
cause it uses extension cards 
for it? By the way, | do not 
generally reject LINE/MIC-In as 
an idea for a new mainboard. It 
might simplify writing SMSQ/E 
software. | just don't accept, 
that the existing Q60 *hard- 
ware* had no means to allow 
audio-input. 


Wolfgang Lenerz: Fully agreed. 
By the way, it was Claus, not 
me, who adressed the problem 
that moving to emulators can 
lead away from the origininal 
OS. You point out that there is 
also software development un- 
der emulators. | can only 
answer, that in my opinion both 
aspects exist at the same time. 
And you are right, many people 
have a PC and Windows be- 
cause they want email, internet 
surfing, playing games, and so 
on. But if the only answer to 
our lack of QL software is to 
use Windows software instead, 
we will never fill the worst gaps 
of QL software! We need as 
much motivation for native 
software development as pos- 
sible, and in my opinion there 
can be no better motivation 
than native computers. 

Look at other small computer 
scenes. Many of them have 
internet access, for example. 
Recenily | talked to a ZX Spec- 
trum magazine maker, and was 
surprised to hear that most of 
those folks are users of native 
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hardware and they have inter- 
net access. It must be possible 
for us as welll 


David Denham: | agree to all of 
what you say. Except your idea, 
the Q40 might lead to Linux like 
QPC2 to Windows. The Q40 is 
a QL compatible machine espe- 
cially designed for QDOS and 
SMSQ/E and it directly runs 
both operating systems. Nobo- 
dy needs to deal with Linux on 
a Q40 at all If using a modern 
QL is all you want, just switch 
on and there you are. Opposed 


to the PC which primarily runs 
Windows, and QPC is just a 
program, depending on (and 
directly related to} Windows. 
The fact that you can not afford 
a Q40, makes me feel a bit de- 
pressed, because Q40 and 
Q60 were designed for dedica- 
ted QL users like you! | did my 
very best to make the Q40 as 
affordable as possible, but | 
also felt the need for so many 
improvements. If | had to throw 
away some of the features, in 
order to make it cheaper | 
would not know which! The 
best thing that can make QL 
hardware cheaper, is to pro- 
duce more boards. 


Conclusion: 

Imagine we all sit behind 
Windows screens. Is this really 
the future of the QL? The kind 
of "QL community” we have in 
mind? | don’t think so. But in 
order to keep interesting QL 
hardware alive, we desperately 


need more support for hard- 
ware. A software emulator can 
easily be given away for free, if 
the author wants. But each 
single piece of hardware needs 
to be produced, which is (be- 
sides being a lot of work) only 
feasible and affordable, if we 
reach higher quantities, with 
the help of fair public attention. 


The pictures accompanying 
this article are from the Q40 
and Q60 website, which rea- 
ders can access at www.q40.de 
A limited supply of Q40 and 
Q60 systems are available 
direct from Peter Graf 
contact him by email on 
pgraf@q40.de to discuss your 
requirements. Despite the ill 
feeling which has clearly been 
caused, QL Today would very 
much like to wish the Claus 
brothers well with the Q40 
and Q60. Hopefully, this de- 
bate is now closed. 


QL Filename Extensions 


by Dilwyn Jones and Jochen Merz 


In response to a request received from a reader, 
the following list of filename extensions has been 
compiled. No doubt there are others and we will 
gladly publish any additions to this list. 

The use of filename extensions is not as ‘formal 
or rigid in QDOS/SMSQ as in some other opera- 
ting system. We use these for convenience, in or- 
der to recognise certain file types, e.g. files with 
filenames ending in _doc are generally document 
files, usually Quill files. But this is not the end of 
the story. Many QL programs will recognise files 
with different extensions if the files themselves 
are in the correct format. For example, if you 
save a file from Quill with the filename 
FLP1_EXAMPLE_doc or FLP1.EXAMPLE_PER, it 
will manage to reload either one. It is generally 
wise to stick with the ‘standard’ extensions for a 
particular program's files. 

One example of the use of these extensions is 
the Fileinfo program used in conjunction with 
QPAC2. Properly installed and with the correct 
definitions entered, you can hit a filename in 
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QPAC2 files menu, then use the EXEC command 
to execute that file. But since a text file, for 
example, is not an executable program, Filelnfo 
ensures that instead of trying to execute the text 
file, what gets executed is the program asso- 
ciated with the filename extension. So instead of 
executing EXAMPLE_TXT as a text file, you can 
execute your favourite text file editor and tell it 
to load that file automatically. Filelnfo is available 
from Thierry Godefroy's website and from the 
usual sources of free QL software. 


Abacus spreadsheet 
_d AC compiler file 
Text 87 font list files 
_alt — Altkey definition file 


_app Application menu or (in Easyptr) an 
Appendix Manager file 

_arc ARC compressed file 

_asm Assembler files 

_bak Backup file 

_bas SuperBASIC or SBASIC BASIC program 


_bin Binary file, machine code output from as- 
semblers, or BASIC extensions 

_blb Pointer environment Blob file 

bmp Bitmapped graphics files 

_boot Usually a BASIC or command file, used 
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_int 


for startup purposes 

List of MIDI files to be played in MidiPlayer 
3 

Bytes file. or basic extension or pure 
code file 

Text 87 configuration file 

Text 87 configuration file 

Code files, eg. machine code or 
extensions files 

Cuedark screen saver file 

A configuration file, used by several 
programs 

A command 
programs 

as _cde 

A compressed file - usually graphics 
Assembler cross reference files 

Control files for JMS Thing And EPROM 
Manager 

Cuedark and Cueshell files 

Page Designer 2 and 3 

Archive database 

Definition files used as configuration files 
for example. 

Dictionary files used by Solvit Plus 2 and 
3 


fle, used by several 


Demonstration file 

Quill or Perfection document file 

Many uses - used for printer data files by 
the Psion programs, and general data files 
by many other programs 

Data Design database file 

Data Design Index file 

Data Design 

Device application file 

Disk Mate 5 file 

Screen dump file 

Used for some Digital Precision Desktop 
Publisher files 

Easybase database files 

Used for help files etc to denote English 
language files 

Export file, used by many programs, ge- 
nerally either comma separated exported 
data files or exported in text format 

Error report file 

AS exec 

Executable programs for the QL 
QSpread export filter 

SuperBASIC or SBASIC extensions 

Fax page file 

Text 87 font file 

Format information file, used by several 
programs 

A screen font file, used by many graphics 
programs 
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_font 
_gen 


_orf 
_gif 
h 


_hdf 


_hip 
_hob 


_hrq 
_idx 
_imf 
_img 
_job 
~|peg 
-[Pg 
_Idp 
_ldr 
_lha 
_lhz 
_lib 


_lift 
_lis 
_ljs 
_log 


_Izh 

_m9i 
_man 
_map 


_men 
_mgr 


_mid 


_midi 
_mrg 
_msg 
_obj 
_ovi 
_pad 
_page 
_p87 
_pas 
_pat 


_PCx 
_pfd 


_pff 


A screen font file, used by many graphics 
programs 

Code generation files from compilers, or 
PTR_GEN pointer environment file 

Easel graphic file 

Graphic Interchange Format 

A C compiler file 

High Definition Font file, used by Pro- 
fessional Publisher and Page Designer 3 
A help file 

Help Object file, used by Psion programs 
such as Quill 

HRQ compressed file 

Index file 

QSpread import filter 

Image or graphics file 

Job file (executable program) 

JPG compressed graphics files 

JPG compressed graphics files 

Line Design page, or LDump (JMS) file 
Loader file 

An archiver file format 

An archiver file format 

Library file (used by C compilers and 
assemblers} 

Page Designer i 

Listing files 

Lonely Joker game save file 

Log file, used by BBS systems to log 
callers etc 

LZH compressed file 

Text 87 Macros file 

Manual files, or Unix Man pages 

Map files, used by adventure games, midi, 
graphics etc programs 

Menu file used by EasyPtr 

Manager file, used by various device 
manager programs 

Standard MIDI File used by Al Boehm’'s 
QL MidiPlayer 

As _mid 

A file to be merged with another file 
Message files from some BBS systems 
QLiberator compiled BASIC program 
QLiberator overlay files 

Notepad file 

Page Designer 1, 2 and 3 page file 

Text 87 printer driver 

A Pascal file 

Pattern files, used by Page Designer 2 
and 3 and The Painter 

a graphics file format widely used on PCs 
Proforma Driver - a printer file used in 
Proforma from PROGS 

Profroma fonts (e.g. used by Line Design 
and Prowess} 
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_pic A picture or pointer environment area snl Vision Mixer screen names list 
save file _spr Sprite file, used by Easyptr and QPTR 

_picO 4 colour _pic file (Mode 0) _t87 “Text 87 text files 

_pic4 4 colour _pic file _t91. More recent Text 87 

_pic8 8 colour _pic file _tab  QSpread table file 

_pkt Packet files for some BBS systems _tar Tape Archive file 

_png Portable Network Graphics (internet task Turbo compiled task (a compiled BASIC 
format) program) 

_pri Perl script files _tex From the TEX DTP system 

_prt Print files or printer driver files _tmp Temporary files or work files created by 

_pws_ Prowess file some programs (e.g. Quill) 

_ged QED editor file _txt Plain text files 

_giq QLQ rext file (JMS) font file (NLQ printing win Hard disk file, typically used in QXLWIN 
program) files for SMSQ and SMSQ/E 

_gpp A Quick Posters page file _wrk Work file, used by QLiberator 

88 A configuration file used by programs -_xrf Cross Reference files, used by BASIC 
such as Qascade syntax checkers etc 

_fel _ Relocatable file @g. used for S-ROFF _zip Zipped (compressed/archived file) used 
type files) by the Zip program 

_fext Runtime extensions or BASIC extensions _zoo ZOO compressed file 

_fom ROM image file 

_fom Resident Procedure Managerfile, for the During our search to identify these files, we came 
QEPII Eprom programmer across some extensions we were not familiar 

_ttm — (1) a runtimes file (compiler extensions) with. Can anyone supply meanings and uses for 
(2) a QLiberator compiled program with these filename extensions for us? We'll publish 
compiler runtimes attached to the pro- your contributions, along with any other types not 
gram covered here, in a later issue. 

_fun —_Runtimes, e.g. used by compilers 

-saf Safety files - backups created by some _apt _fmt _out 
programs _acc _frn _pen 

sav BASIC program saved in  tokenised _app _hor _prc 

format, used by SBASIC and by Libera- —_ pba _ivg _SWC 
tion Software's QLOAD utilities, and by _cpt _in _syn 
QLiberator “CSS _inp ttl 

_scn A screen graphics file _dia _inv _typ 

_scr A screen graphics file _ep2 _mod _weg 

_seq Sequence data file for Vision Mixer _epl _ok2 


program 


The Ultimate Sin? 


Geoff Wicks 


the Spectrum and the QL. | 
even learnt the fundamentals of 
MS-DOS on a QL. Two of my 
uncles retired early because of 
the computerisation of their 


| am about to commit what 
many people will regard as 
being the ultimate QL sin. No, | 
am not going to admit to 
owning a signed portrait of Bil 
Gates, but | am going to criti- 
cise the father of the QL. Was 
the QL’s greatest enemy Clive 
Sinclair? 


This puts me in an unusual situ- 
ation. | feel like the adult looking 
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back on an unhappy childhood 
and his parents’ constant quar- 
relling. His life would have been 
a lot better if his parents had 
never met, but then if they had 
never met he would not have 
been born. 


Many QL-ers, including me, are 
grateful to Clive Sinclair. Most of 
what we know about compu- 
ters we learnt from the ZX8i, 


work, but Sinclair prepared me 
for the modern world. In some 
ways we QL old-stagers know 
more about computing than 
today's "whiz-kid", who spends 
his time surfing the net using 
the latest technology. 


But far from being a Quantum 
Leap, the QL Clive Sinclair 
gave us was a shoddy product 
that deserved to fail. That the 
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QL is still alive today is not 
because of, but in spite of, Clive 
Sinclair 


At about the time the QL was 
conceived, Sinciair Research 
was a profitable company. One 
set of figures | have seen was 
that in 1982 500,000 home 
computers were sold in the UK. 
Of these 220,000 were ZX8is 
and 75,000 were Spectrums. In 
1982 - 83 Sinclair Research had 
profits of f£14M on a 
turnover of £54M. The 
following year the profit 
remained the same al 
though the turnover had 
risen to £77M. 


The question in 1983 was 
not whether there would be 
a successor to the Spec- 
trum, but what its specifica- 
tions would be. The details 
leaked to the computer 
press was that the ZX83 
would be a _ battery 
powered machine — using 
microdrives for storage, a _ 
flat screen for viewing, © 
have a built in modem and ~ 
come packaged with business 
software. 


If Sinclair had succeeded in 
building a ZX83, it would have 
been a major technological 
breakthrough. In 1983 a 
portable computer was a 
heavy machine the size of a 
small suitcase. The ZX83 
would probably have been 
lighter than today's laptops. 
Two problems proved insur- 
mountable. The ZX83 con 
sumed too much power to be 
battery driven, and the flat 
screen technology never deve- 
loped beyond a two inch 
monochrome television. 


Once the idea of portability 
was dropped, no clear vision 
seems to have emerged as to 
what the QL should be or to 
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which market it should be 
aimed. Officially it was to be 
not a home, but a business 
computer The final product 
was an unhappy hybrid that 
was neither one nor the other 
Several features of a computer 
determine whether if is more 
suitable for home or business 
use. These include the proces- 
sor, the memory, the keyboard, 
the storage, the display and the 
operating system. When we 


look at these things one by 
one, we see inconsistencies in 
the QL design and realise how 
muddled the thinking was in 
Sinclair Research. 


Take something simple like the 
display. For business programs 
such as spreadsheets and 
word processing you need an 
80 column display and thus a 
monitor This was not supplied 
with the QL, which meant a 
business purchaser had to pay 
not £400, but about £650 for 
his computer. As a compromise 
Sinclair added a television inter- 
face, but you cannot not use 
mode 4 comfortably on a tele- 
vision set. Then take a look at 
the chip that controlled most of 
the in/out operations, the 8049. 
This does not permit different 
baud rates for the two serial 


| Sir Clive Sinclair naming the 


ports. As the computer did not 
have a parallel interface, it was 
difficult, if not impossible, to run 
both a modem and a printer at 
the same time. Hardly specift 
Cations for a business computer. 


Early Sinclair computers were 
notorious for their strange 
keyboards, which were, how- 
ever, acceptable when the aim 
was to develop a cheap home 
model. By the time the QL was 
produced, most of Sinclair's 
rivals used a proper 
keyboard, but — Sinclair 
asted time, energy and 
oney on improving their 
~own keyboard rather than 
using an alternative. The 
L's keyboard was a vast 
mprovement on that of the 
Spectrum, but totally 
unsuitable for intensive 
business use. 


Most people, if asked to 
| name just one feature of the 
| QL that ensured its failure, 
) would have little hesitation in 
microdrives. 
Looking back we see them 
as quaint devices, but they 
were a remarkable technical 
achievement, certainly when 
compared to disk drives on a 
storage Capacity/weight basis. 
They may have had some 
potential in a portable business 
computer, but they were too 
unreliable and too limited in 
Storage capacity for company 
use. 


At about the time | bought my 
first QL, | was attempting to find 
a publisher for a book | had 
written. You do not trust 80,000 
precious words, the result of 
several years’ research, to 
microdrive cartridges. If the QL 
had had a tape cassette 
interface it would have given 
bulk, cheap and safe storage, 
particularly for the serious 
home user, but that would have 
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demeaned a business compu- 
ter 


There is some dispute about 
how easy and cheap it would 
have been to have put disk 
drives in the QL, but, in practice, 
QL users were using disk 
drives within a year of the QL’s 
release. To complicate matters 
still further microdrive cartrid- 
ges were in short supply during 
the first year of the QL’'s life A 
cassette interface would have 
made things simpler for the 
software houses, who would 
probably have produced more 
QL programs, thus improving 
its survival chances. 


The original QL had 128K me- 
mory, which sounded a lot at 
the time, but 32K was immedi- 
ately consumed by the display 
and more by slave blocks and 
system variables. If you typed 
as little as 1000 words in Quill 
you had a constantly whirring 
microdrive as it updated the 
_tmp file. | started to use Quill 
seriously only after | bought 
memory expansion, and dis- 
covered that temp files were 
not a normal Quill feature. For 
serious home use the QL's 
memory barely insufficient, for 
company use it was_fotally 
inadequate. 


Perhaps the most fascinating 
sign of muddled thinking in the 
QL design was the choice of 
processor The safe choice 
would have been to have kept 
the Z80. It was a well used chip 
that Sinclair's engineers knew 
how to exploit to the full 
Instead the choice fell on the 
Motorola 68000 series, indica- 
ting that Sinclair was looking at 
technological innovation. But 
then they chose the 68008, 
the most limited chip in the 
series, whose 8 bit bus slowed 
down and limited the potential 
performance of the machine 
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My technical knowledge fails 
me here, but | believe it was the 
choice of this chip that led to a 
restriction on the maximum 
possible memory of the QL. For 
years everyone thought this 
was about iMb. It was only 
after Miracle had thought of 
making a ‘Mini QL” on a Gold 
Card with its own processor 
that took over from the 68008 
that today’s high speed, high 
memory QLs became possible. 
Because of a lack of speed 
and memory, the QL failed to 
keep up with other computers 
in the development of graphics, 
vector fonts and communica- 
tions. 


It is hard to believe that when 
the QL was first released, it had 
one of the most advanced gra- 
phics capabilities of any com- 
puter It was soon beaten by 
other computers, and it has 
taken us over 15 years to catch 
up with the PC. If, 10 years ago, 
we had had 8 or 16 colours in 
mode 4 resolution, there would 
have been more software pro- 
duced and the QL's survival 
more assured. It is probably no 
co-incidence that Macs, which 
use the 68000 chip, are siil 
seen as superior to PCs in the 
graphics and printing industries. 
The final uncertainty in the 
design of the original QL was 
the operating system. The 
original intention was to have a 
minimal system. Just enough to 
load and run the Psion suite. 
This would probably have been 
satisfactory for business use, 
but not for the Sinclair fans 
who wanted to do their own 
programming. So QDOS and 
SuperBasic were added, but 
initially that was only possible 
by putting a ‘dongle’ or 
“kludge” into the back. From 
day one this made the QL an 
object of derision in both the 
computer and non-computer 
press. Few experts took It seri 


ously from then on. 


The QL satisfied neither the 
demands of the business nor 
of the home market. It was not 
Sinclair that made the QL what 
it is today, but the peripherals 
industry, which supplied the 
memory, the disk drives, the 
keyboard interfaces and the 
operating system that turned it 
into a serious computer 


The tragedy was the once the 
peripherals industry had done 
its work, there were numerous 
practical examples of the QL's 
suitability for serious home or 
small business use. These 
include a school for teaching 
computer studies, a magis- 
trates court and a security firm. 
There are also numerous 
examples of academics using 
the QL for writing theses, of 
authors writing books and of 
people running clubs and soci 
eties. If Sinclair had got the QL 
specifications right, the market 
would have been there. The QL 
probably could never have ti- 
valled the PC, but it could have 
rivalled the Mac. 


We Ql-ers bear a grudge 
against Amstrad for ‘killing’ the 
QL after they took over Sinclair 
but if we are honest Amstrad’s 
decision was commercially 
sensible and sound. It was not 
Amstrad that *killed” the QL, but 
Sinclair 


But let us indulge our fantasies 
and assume that it was Sinclair 
and not Microsoft that had con- 
quered the world. What would 
we QL-ers be doing? | suspect 
many of us belong to the 
awkward squad. Perhaps we 
would be tinkering with a minor 
system called MS-DOS and 
arguing among ourselves if 
Windows was a necessary 
improvement to the purity of 
the original system. 
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TF Services. 


A UK 4-way trailing socket designed to switch off 
computer peripherals automatically when the com- 
puter is switched off, or (in the case of an ATX com- 
puter) when it auto-powers down. Compswitch has 
one contro! socket, and three switched sockets. 


COS Use si cisecevcisiacinelscasiasseeccesisecesesaceedcnns £24 


RERRERRKRRA RAR YY & AA KRRRAARRRAR 


A majer hardware upgrade for the QL 

All Hermes features (working serl/2 at 19200, 

independent baud  rates/de-bounced keyboard/ 

keyclick) IBM AT kbd I/f // HIGH SPEED RS232 at 

57600// serial mouse port and 2 other RS232 inputs// 

3 VO lines // EEPROM 

Cost (including manual/software)£90 (£92/£93) 

IBM AT UK layout Keyboard £11 (€13/£15) 
£8 (£8.50/£9) 

Capslock/scrollock LED £1 (£1.S50/£1.50) 

Keyboard or mouse lead £3 (£3.50/£3.50) 

High speed serial (ser3) lead £4 (£4.50/£4.50) 


Hermes available for £25 (£26/£27) Working ser1/2 
and independent input, debounced keyboard. 


SuperHermes LITE: All Hermes features (see 
above) + an IBM AT keyboard interface only. 
Cost (incl keyboard lead) £53 (£54/£55) 


—___OL_ REPAIRS _(UKs only) ___ 


Fixed price for unmodified QLs, excl microdrives. QLs 
tested with Thorn-EMI rig and ROM software. 


£27 incl 6 month guarantee 


Minerva 
The ORIGINAL system operating system upgrade 


OTHER FEATURES COMMON TO ALL VERSIONS 
| DEBUGGED operating system/ autoboot on reset of 
power failure/ Multiple Basic/ faster scheduler- graphics 
(within 10% of lightning) - string handling’ WHEN 
ERROR/ 2nd screen/ TRACE/ non-English keyboard 
drivers/ “warm” fast reset. V1.97 with split OUTPUT 
baud rates (+ Hermes) & built in Multibasic. 

First upgrade free. Otherwise send £3 (+25 for manual if requd). 
Send disk plus SAE er two IRCs 


MEL..£40 (£41/£43) MUKEL..£65 (£66/£67) 


MINERVA RTC (MKD + battery fer 256 bytes ram. 
CRASHPROOF clock & PC bus for interfacing. Can 
autoboot from battery backed ram. Quick start-up. 


= OL RomDisq ___. 
Up to 8 mbyte of flash memory for the OL 
A small plug in circuit for the QL’s ROM port (or 
Aurora) giving 2, 4 or 8 mbytes of permanent storage - 
it can be thought of as a portable hard disk on a card, 
and reads at some 2 mbytes per second. 
Think of it - you could fully boot an expanded QL, 
including all drivers/SMSQ etc off RomDisg at hard 
disk speed with only a memory expansion needed. 
2 mbytes RomDisq £39 (£40/£41) 
4mbytes RomDisg. £65(£66/£67) 
8 mbytes RomDisq £98 (£99/£100) 
Aurora adaptor £3 (£3.50/£4) 


| A low profile powered backplane with ROM port : ; 


— A three expansion backplane with ROM port included for By 
, RombDisq etc. 

| powered off single 5V rail - contact QBranch for details. | 
s Two boards (eg Aurora and Gold Card/Super Gold Card/ 

& Goldfire fixed to base. Suitable for Aurora (ROM accessible 
| from outside) & QL motherboard in tower case. 


Avrora can be fitted in notebook case and 


Specify 
ROM facing IN towards boards, or OUT towards back of 


td whkdcapaseetedaseddbcunelicisediosates EO8 (E95/E36) 


Coanects to Minerva MKIE and any Philips PC bus 


Power Driver Interface 16 1/0 lines with 12 of these used to 
control $ current carrying outputs (source and sink capable) 
2 amp (for $ relays, small motors) £40 (£43/£44) 
4 amp total (for motors etc) £45 (£48/£50) 
Relays (8 3a 12v 2-way mains relays (needs 2a power 

£25 (£28/£29) 
Parallel Interface Gives 16 input/output lines. Can be 
used wherever logic signals are required £25 (£27/£28) 
Analogue Interface Gives eight 8 bit analogue to 
digital inputs (ADC) and twe 8 bit digital to analogue 
outputs (AC). Used for temp measurements, sound 
sampling (tc 5 KHz), x/y plotting £30 (£31/£32) 
Temp probe (-40°C to +125°C) £10 (£10.50/£11) 
Connector for four temp probes £10 (£10.50/£11) 
Data sheets £2 (£2.50/£3) 
Control software & manual (for all I/F) £2 (£2.50/£3) 


, OLSPARES— I] 


no longer on sale 
£3 (£3.50/£4) 
£3 (£3.50/£4) 
£8 (£8. 50/£9) 
£10 (£10.50/£11) 
£12 (£17/£21) 


Prices include postage and packing (Airmail where applicable). Prices are: UK (Europe /Rest of world). Payment by cheque drawn on bank with UK address, 


postal order or CASH! I can no lenger accept card payments es UK enly dees PDQ transaction. SAE or IRC for full list and details 


10 May 0107 


29 Longfield Road. TRING. Herts, HP23 4DG — 


Tel: 01442-828254 
tony efirshman.demon.co.uk 


QL foday 


http: 


Fax’ BBS: 01442-828255 
Jwww.firshman.demon.co.uk 
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Returning from a DO 


Al Boehm 


As an American (English?) idiom, the title could 
mean “Returning from a party’! Sorry if | got you 
party animals all excited anticipating reading 
about the hijinks | got into trying to get home from 
a wild party, but it is merely about the Keyword 
DO. On the other hand, you programmers may 
find this article quite interesting. 


The TK2 Keyword DO lets you run unnumbered 
SuperBasic code that is stored in a file. For 
example, DO wini_QDtxt could start the editor 
QD with txt files as the default load suffix. There 
also could be a winl_QDbas to start QD with the 
bas suffix. There can be one for full screen QDs, 
part screen QDs, and so on. 


| also use ALTKEY for nearly the same purposes, 
but | ran out of single letters that had any meaning 
for me. Thus, | have a large directory of Boots to 
start programs with various options. Besides 
booting programs | also DO other SuperBasic uti- 
lity programs to set printers, change windows, 
dump the screen a certain way, etc. 


Most of the time | use DO from the command line. 
However, it can be used in a SuperBasic program. 
The trouble has been once DO completes its 
task, it stops. Thus, it has only been useful in a 
program for such things as ending tasks such as 
closing files or printing debug. 


| queried Simon Goodwin to see if there was a 
way to return from a DO. He did not have a sim- 
ple method, but something he wrote triggered a 
brainstorm. The problem is that DO does not 
know where to go back to. What do you do when 
a program stops and you want it start where it 
stopped? You use CONTINUE which restarts the 
program at the line after the one where it 
stopped. Would this work with DO? 


lt does! Try the following test program: 
100 FOR I = 1 to 10 

110 DO rami_DOtest 

120 END FOR I 

with the file rami_DOtest consisting of: 


FOR J=1 TO 5:PRINT I,J:END FOR J: CONTINUE 
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This worked fine with the JSU rom and Minerva 
both with and without the Pointer System. It also 
worked with SMSQ and SMSQE except when the 
SBasic program ended, the DO line started and 
kept repeating itself until Ctrl/Space was pressed. 
The problem as | see it, is not that the DO keeps 
calling itself with CONTINUE after the program 
has stopped, but rather why Is called at all after a 
STOP A simple workaround is to use a second 
DO without a CONTINUE, for example in the 
above program for SMSQE add: 


130 DO rami_DOStop 
where the file DOStop is simply: 
STOP 


A limitation in the JSU rom and Minerva is that the 
DO will not run nor return if it is called from a 
FUNction. it will work OK from a PROCedure. But 
with SMSQE, it also works fine from a FUNCtion. 


Some years ago, it was very important for me to 
evaluate complicated algebraic equations. | mean 
these dudes were sometimes several pages long! 
Once | even exceeded the 32K length for string 
variables! No, | didn’t type in 32K of algebra; sim- 
ple equations were recursively expanded by sub- 
Stituting expressions such as polynomials for 
single variables. 


On the Spectrum and TS2068 there was an VAL 
function that would calculate the result of an alge- 
braic statement written in Basic. For example, 


A$='12+3.2*COS(1.3*PI)' 
PRINT VAL(A$) 


would result in 10.11909. Coercion in the QL: 
A=A$, only gets the first number, A=12. Several 
attempts were made to develop a VAL for the QL. 
The minicompiler QLVAL developed by M. 
Garcia, Quanta disk 15, is particularly noteworthy. 
Also there is Simon Goodwin's QUEUE% function 
(DIY vol Q) which stuffs an input buffer and allows 
a string to be evaluated. But for my work they ail 
had shortcomings. 


Now (when | don't need it anymore) it is possible 
to write an expression to ram disk, evaluate it, and 
return the answer: 


100 REMark Test EVAL 
110 a$='12+3.2*COS(1.3*PI)' 
120 EVAL a$ 
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125 PRINT result 

130 STOP 

140 : 

500 DEFine PROCedure EVAL(a$) 

510 REMark Compute numeric result of 
expression a$ 

515 REMark answer is returned as 
variable "result" 

520 REMark Freeware. 28 Aug 2001 by A. 
Boehm 

530 LOCal F 

540 F=FOP_OVER('ram1_EVAL_str') 

550 PRINT#F, 'result=' & a$ & ':CONTINUE' 

560 CLOSE#F 

570 DO rami_EVAL str 

590 END DEFine EVAL 


Programming in Assemb- 
ler - Part 9 


Norman Dunbar 


First a list of corrections that | have to make to 
the last article which covered the QDOS screen 
memory etc. 


Page 30, example code - EXTOP code missing. 
The following code should have been in the 
code snippet for the example shown: 


move.1 $32,(a0),al 
move.w $64(a0),d1 
moveq #0,d0 

rts 


extop 


Page 30, paragraph 2 (below the code example) 
~ wrong register used in text. The sentence 
but coming out, DiW holds .. and A2L holds ...’ 
should of course read ‘ALL holds ...’ and not A2 
as | originally wrote. 


That's all for now - Im sure there are more bugs 
in there somewhere - but either nobody has 
spotted them (or nobody read the article). 


Subroutines & A Useful Library 

Here we are in part 9 of the series on assembly 
language for the QL (not including the QLidis 
episodes which are ‘the project’) and what we will 
look at today are subroutines. 

A subroutine is simply a piece of code that you 
call lots of times within your program. Because it 
is called so many times, you extract the working 
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This test should print 10.11909 when run. | nave an 
FVAL which is similar except it is a FUNction for 
use in SMSQE only. 


Aside from evaluating an expression, this use of a 
returning DO could be used for some limited 
on-the-fly code manipulation. That is, the 
SuperBasic program could change a§$ into series 
of commands which could then be executed. 


DO requires TK2. MERGE seems to work just as 
well from the command line. However MERGE 
does not work within SuperBasic. Plus | don't 
think DO would know where to return in a 
compiled program. 


code, move it somewhere safe and add an RTS 
at the end. This is your subroutine - in its draft 
form! 


Where the code used to be in the main source, 
now simply has a ‘BSR sub_routine’ in its place. 
The more times a routine is called, the bigger the 
saving in your typing and memory usage in the 
final program. Another major advantage of using 
subroutines is that you only need to change or 
correct them once - of course, if you make a 
mistake then every call to that subroutine is 
flawed as well! 


For example, in a program you have written, you 
might find that you write the same piece of code 
numerous times to clear the screen, something 
like the following: 


start blah blah bleh 


move.1 channel_id,a0 ; First channel id 
moveg #sd_clear,d0 ; CLS 
moveq #infinite,d3 ; Infinite timeout 
trap #3 ; CLS title window 
move.1 other_channel_id,aO ; Another channel id 
moveq #sd_clear,d0 3 CLS 
moveq #infinite,d3 ; Infinite timeout 
trap = #8 ; CLS title window 
move.1 another_id,a0 3; And another 

3 channel id 
moveq #sd_clear,d0 ; CLS 
moveq #infinite,d3 3; Infinite timeout 
trap #8 3 CLS title window 
rts ; All done - back to 


; wherever I came from 
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and so on. The above code looks duplicated and 
where you have duplication, you can usually - 
but not always — extract the duplicate code to a 
subroutine. We can now rewrite the code above 
as follows: 


start blah blah blah 


move.1 channel_id, a0 ; First channel id 


ber els 
move.1 other_channel_id,aO ; Another channel id 
bsr els 
move.1 another_id,aO  ; And another channel id 


bsr els 


rts 3; All done - back to wherever I came from 


ancient aaa te antec ital a ei ee ce et 
* Subroutine to clear the SCR or CON channel whose ID 
* is held in AO. 


t——. 


els  moveq #sd_clear, dO 3 CLS 
moveq #-1,d3 ; Infinite timeout 
trap #3 ; CLS title window 
rts 


The code that does the setting up of the various 
parameters for the system call to clear a channel 
has been extracted and placed at the end all by 
itself An RTS instrcution has been added to 
allow us to go back to where we came from. 
The second piece of code is easier (?) to read 
and will be smaller when finished. 


So that is all there is to it. If you remember back 
to the boring part of this series (what do you 
mean ‘which boring part?’) where | discussed the 
inner workings of the BSR instruction, you will 
remember that BSR stacks the address of the 
instruction that will be exected next (after the 
BSR), jumps to the address given and continues 
executing from there until it finds an RTS 
instruction. 


The RTS instruction stops the program in its 
tracks, sets the PC (2 points if you can 
remember what PC stands for ..) to the address 
that was stacked and proceeds to execute from 
there again. Those of you who are ahead of me 
at this point will realise that the RTS instruction 
takes the top 4 bytes off of the stack 
REGARDLESS of what they are. If they are a 
valid return address then fine, no problems. If, on 
the other hand, they are some data, then who 
knows what will happen when the RTS is 
executed. 
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For this reason, it is very important that your 
stack should be exactly the same on the way out 
of a subroutine as it was on the way in. Don't do 
this, for example: 


start blah blah blah 
move.1 channel_id,a0 ; First channel id 
bsr els 
rts 

# 


* BROKEN subroutine to clear the SCR or CON channel 
* whose ID is held in AO. 
* 


; Preserve DO until later 


els move.l 40,-(a7) 
moveq #sd_clear,d0 ; CLS 
moveq #-1, 43 ; Infinite timeout 
trap #3 3 CLS title window 
rts ; Program explodes here! 


In this example, the old value of DOL is on the 
stack on top of the return address. When the 
RTS instruction is executed it doesn’t know (or 
care) about what is on the stack, it just grabs the 
top 4 bytes and sets the PC to that ‘address’. 
(You get 2 points if you remembered PC = 
Program Counter!) 


Building A Library 

As you progress with assembly language 
programming, you may find that you build up a lot 
of subroutines in your programs. What to do with 
them all? 

Why not build yourself a library of routines that 
you can include in every program that needs 
them. This way, you have a full set of tried and 
tested bits of code - which you should document 
somewhere ~ that can be reused over and over 
again. The rest of this article will help you on your 
way by building a number of useful (well, | have 
found them to be useful over the years) 
subroutines that you can use. 


Documentation 

As with all good things, documentation is a must. 
If you have a large number of useful routines then 
they should be documented somewhere. This will 
allow you to look for a routine in your library and 
from that, find out its inout & output parameters 
and which file it lives in. 


A suitable template that you could use for each 
subroutine is as follows: 
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nena cocaine ec alarm teenie 


* NAME 

% DEPENDENCY (1) 
% DEPENDENCY (2) 
% PURPOSE 

* INPUTS 


The above looks very like comments in a source 
file - this implies that we could add the documen- 
tation to the source file and then run a utility 
program to extract the details and store them in a 
text file - which you can edit and/or print as 
desired. 

Having a standard header above each subroutine 
also implies that you could write a utility program 
to scan the entire library and ask you which ones 
you want to include in your output file - which wil 
be you source file for your next masterpiece - 
before extracting them all and writing them to 
this file. 

As for the subroutines themselves, | mentioned 
above that they exist in a draft form when you 
simply extract the code from the ‘wordy’ source 
and add an RTS to the end. This is fine, but it 
could be that you need to preserve certain 
registers so that the code calling the subroutine 
doesn't need to keep saving and restoring them. 
The updates required are: 


e Check which registers will be used by the code 
explicitly - save them before and restore them 
after the main part of the subroutine code. 

e Check which system calls are made by the 
subroutine and look up the QDOSMSQ 
documentation to see which registers are 
trashed by the system call. Add these registers 
to the save and restore routines. 

e Save the registers as the first line of code in 
the subroutine and restore them as the line 
immediately before the RTS {or as near to the 
RTS as possible). 

e Always have the subroutine return an error 
code and/or the flags set to signal if an error 
occurred or not. 


An actual example follows: 


ee ene ene mas 
*& NAME CLS 

% 7 

% DEPENDENCY None 


* PURPOSE To clear a screen/console channel. 

* DESCRIPTION Clears the screen channel whose ID is 

% supplied in AO. 

* INPUTS : 

% AQ.L = channel ID 

*% OUTPUTS : 

x DO = Error code 

* Z flag set if no errors, unset otherwise 
% Saal eR ener aren Rae Meer 


QBOX-USA BBS 


Operating since 1993 on a Sinclair OL from Utica, Michigan, USA 
Supporting ALL Sinclair and Timex users 
Message and File Areas for OL, 788, Spectrum, TS2068, ZxX81, TSi000 
Modem speeds 300 bps to 33.6k bps supported 
24 hour operation - call anytime 


610-254-9878 
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els move.1 4di/d3/ai,-(a7) ; These will be corrupted 


z 
; by SD_CLEAR 
moveq #sd_clear,d0 ; CLS (SD_CLEAR defined 
3 in GWASL) 
moveg #1,0 ; Infinite timeout 
trap #3 ; CLS the window 
move.1 (a7)+,d1/d3/al ; Restore corrupted 
3 registers 
tst.1 do ; Set Z flag if all ok, 
3 €lse not set 
rts 


in the above example, | have extended the ‘cls’ 

code from our original subroutine as follows: 

~ | have added a documentation header com- 
ment. 

- | have preserved D3 because | use it in the 
code myself. 

~ | have preserved Di and Al because the 
QDOSMSQ documentation states that these 
two registers are ‘undefined’ on return from the 
system call SDLCLEAR. 

- | have restored all 3 of these registers before 
the RTS. 


% 

* NAME 

fee Pe 
* DEPENDENCY None 
* PURPOSE 
% DESCRIPTION 


STR_COPY 


-|have added a TSTL DO instruction to set the Z 
flags according to whether an error was 
detected or not. 


Note that although DO is used by the code and 
by the system call, | have not preserved it. This is 
quite simply because | use DO to return any error 
codes back to the caller As | have documented 
its corruption in the header | assume that the 
user of the subroutine will read this and know all 
about it! 

Bullet proofing the code like this helps to reduce 
unexpected bugs in your programs when you 
forget to save a register and after a subroutine 
call, assume it still has the same value as before. | 
know, | have been there. Of course, there is not 
much you can do to prevent the documentation 
you use from being wrong (been there too} but at 
least you did your best ! 


Onwards with the code for my (useful) subrou- 
tines. 


Copy the string at (A2) to the string at (A1) overwriting. : 
Copies the string whose address is passed in A2 over the 
* string whose address is passed in Al thus overwriting the : 


* old contents of the receiving string. 
* INPUTS : 
% A1.L = Address of the receiving string 
* A2.L = Address of the sending string 
* OUTPUTS : 
 # A1.L = Address of the receiving string (preserved) 
7 A2.L = Address of the sending string (preserved) 
: + eee 
str_copy  movem.1 d0/ail-a2,-(a7) ; Preserve working register 
move.w (a2)+,d0 ; Get size of ‘from! string 
move.w d0,(al)+ 3; Set new size of ‘to' string 
bra.s s¢c_next ; Skip the dbra stuff first time round 
sc_moveb move.b (a2)+,(al)+ ; Move a single byte 
se_next dbra d0, sc_moveb ; And the rest 
movem.1 (a7)+,d0/al-a2 ; Restore working registers 
rts 3 Exit 
% 
* NAME STR_APPEND 
x 
% DEPENDENCY  STR_COPY 
* PURPOSE Append the string at (A2) to the end of the string at (Al). 
* DESCRIPTION Copies the string whose address is passed in A2 to the end of 
* the string whose address is passed in Al. The old contents of 
* both strings will be preserved - except Ai which will be 
x extended of course ! 
* INPUTS : 
% AI.L = Address of the receiving string 
% A2.L = Address of the sending string 
* OUTPUTS : 
% A1.L = Address of the receiving string (preserved) 
x A2.L = Address of the sending string (Preserved) 
% 
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Save the working register 

Size of 'from' string 

Sige of ‘to! string 

New size of 'to' string 

New 'to' string end position 

Copy all bytes over using STR_COPY 

DO will be restored after STR_COPY exits 
STR_APPEND exits via STR_COPY. 


str_append movem.1 4d0/al-a2,—(a7) 
move.w (a2)+,d0 
move.w (ai),dl 
add.w 0, (al)+ 
adda.w di,al 
bra.s  sc_next 


T, Mate. Sy tee Se ele. “SF 


Ne ses ae a cae 
* NAME STR_REVERSE 

% _ 

® DEPENDENCY None 

* PURPOSE Reverse the bytes in the string at (Al). 

* DESCRIPTION Reverses the bytes in the string whose address is passed in Al. 
® INPUTS ; 

* Al.L = Address of the string to be reversed 

*® OUTPUTS : 

% A1.L = Address of the string to be reversed (Preserved) 

%.. pact = 
str_reverse move.1 4d0-di/al~a2,-(a7) ; Save working registers 


Copy start address 

Fetch length word 

Nothing to do 

Near the end of the string 

The last character in the string 
DO = INT(DO/2) OK for odd and even ! 
Skip the first one for DBRA 
Fetch the 'last' character 

Move the 'first' byte to ‘last! 
Move the 'last' byte to 'first' 
And adjust ‘last! 

And do the rest 

Restore the working registers 


move.1 al,a2 
move.w (ai)+,d0 
beq.s  sriquit 
adda.w d0,a2 
addq.1 #1,a2 
Isl.w #1,d0 
bra.s  srnext 
sr_loop move.b {a2),d1 
move.b (al), (a2) 
: move.b 41, (ai)+ 
i subq.1 #1,a2 
dbra 40, sr_loop 
movem.1 (a7)+,d0-di/al-a2 
rts 
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* DEPENDENCY = STR_APPEND 


% PURPOSE Insert the string at (A2) into the string at (Al) at pos DO. 
_ * DESCRIPTION Inserts the string whose address is passed in A2 into the string i 
 * whose address is passed in Al at the position passed in DO.W so 
7: the first character in the inserted string will be character DO 

® after the insertion. (Zero is the very first character !) 

% If DO »= length (A1) then call STR_APPEND to do the work. 

% INPUTS : 

® A1.L = Address of the receiving string 

% A2.L = Address of the string to be inserted 

% DO.W = Position (starting at 0) where to insert before 

* OUTPUTS : 

* DO = Error code 

& A1.L = Address of the receiving string (preserved) 

% A2.L = Address of the string to be inserted (preserved) 

% Z flag set if no errors, unset otherwise. 

ES 


Are we appending perhaps ? 
Yes, easy case to deal with ! 
Is there anything in DO ? 
Yes, negatives are bad ! 

Bad parameter 

Z is unset, DO = error code 


str_insert cmp.w 40, (al) 
bge str_append 
tst.w dO 
bge.s  siok 
moveq #-15,d0 


Nee Wwe Mee See we te 


Save those workers 

A3 = Address of Al string 

Plus the sige ... 

A3 = final char of Al string plus one. 
AA to be the new last char after insert 


si_ok movem.1 di/ai-a4,-(a7) 
move.l al,a3 
adda.w (ai},a3 
addq.1 #2,a3 
move.1 a3,a4 


Nee Non Me Me Moe 
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Add the extra length to the last character 
And now we are there (plus one) 
Size of inserted string 


adda.w (a2),a4 
addq.i #2,a4 
move.w (a2),d1 


bra.s  si_dnext Skip dbra 
si.dmove move.b -(a3),-(a4) Move a byte 
si_dnext dora di, si_dmove Do the rest 


Fetch the inserted length again 

A2 now nearly at the last character 
One past the last character 

Skip dbra stuff 

Insert a byte 

Insert the rest 

Restore those workers 


move.w (a2),d1 

adda.w di,a2 

addq.w #2,a2 

bra.s  si_inext 
si_imove move.b -(a3),-(a4) 
si_inext dbra di, si_imove 

movem.1 (a7)+,d1/ai-a4 


Noo Nap Noe Sno Soe Woo Soe we ne We Mn Meh Soo Moe 


clr.1 40 No errors 
rts 
¥ 
* NAME STR_COMP 
are ee 
* DEPENDENCY None 
* PURPOSE To compare two strings for exact equality 
* DESCRIPTION Comprare the strings at (Al) and (A2) for exact equality. 
* Numbers in the string are considered as well as letters etc. 
% Equivalent to 'IF (Ai$ = A2$)' 
* INPUTS : 
x AL.L = First string 
* A2.L = Seeond string 
* OUTPUTS : 
® DO = Result of comparison. 
* ~1 = Al string is « A2 string 
% 0 = Al string = A2 string 
* +1 = Al string > A2 string 
% A1.L = First string (preserved) 
x A2.L = Second string (preserved) 
% — 


Must preserve workers 

Include numbers, case is significant 
Uses different registers 

So swap them over 

Fetch the vector address 


str_comp  movem.1 aQ-a2,-(a7) 
moveq #2,d0 
se_params move.1 ai,a0 
move.1 a2,al 
move.w UT_CSTR,a2 


Mek Wee Mee Noe Se Noe toe toe 


jsr (a2) Compare strings using ROM routine 
movem.1 (a'7)+,a0-a2 Restore working registers 
tst.1 40 Make sure Z is set/unset 
rts 
Yoccscivnearesnic 
* NAME STR_COMPI 
# cara 
* DEPENDENCY STR_COMP 
*® PURPOSE To compare two strings for approximate equality 
% DESCRIPTION Comprare the strings at (Al) and (A2) for approximate equality. 
* Numbers in the string are considered and letter case is ignored. 
% Equivalent to 'IF (A1$ == A2$)' 
* INPUTS : 
% AL.L = First string 
® A2.L = Second string 
® OUTPUTS : 
% DO = Result of comparison. 
& ~1 = Al string is « A2 string 
* 0 = Al string == A2 string 
® +1 = Al string > A2 string 
¥ A1.L = First string (preserved) 
% A2.L = Second string (preserved) 
i 
str_compare movem.1 a0-a2,-(a7) ; Must preserve workers 
moveq #3,d0 ; Include numbers, case is significant 


bra sc_params ; Jump into STR_COMP to do it all 
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BRIDGE Am 


: Beene ee (EEC) WAN. Richardson & Co. 


- 6R d 
MOBILE: 07808 576118 Shoes 


E-MAIL: WNR@COMPUSERVE.COM Buckinghamshire SL9 ONB 


PORTABLE COMPANION FOR THE QL, PC AND MAC, 


THE CAMBRIDGE 788 A4 NOTEBOOK 


WITH BUILT-IN WORD PROCESSOR, SPREADSHEET, 
DATABASE, BASIC, CALCULATOR, CLOCK, ALARM, 
CALENDAR & VT52 TERMINAL. 

USES 4XAA ALKALINE CELLS (ca. 20 HOURS) * 


WEDO REPAIRS, PART EXCHANGES, AND BUY 788s & PARTS 


NEW! CAMBRIDGE 288 WITH 024+512ek Internal Ram £150 
ALSO AVAILABLE, 512k RAMPACK £40 


DESCRIPTION 


—_ | 
42 PR K! (or £99, $130 
\.. £60 ...., $90 


STARTER PAC 


32k RAMPACK 
128k RAMPACK 
32k EPROM PACK 
128k EPROM PACK 
256k EPROM PACK 
EPROM ERASER 


PARALLEL PRINTER LEAD 
SERIAL PRINTER LEAD 

se * 
TOPPER (PROTECTIVE COVER) 
CARRYING CASE (PLASTIC) 


SPECIAL Z88-OQL SERIAL LEAD 
| COPY DISKS OF QUANTA PROGS IMP/EXP & ARCHIVE EXPORT 


| PCLINK KIT (For PCs) sr AUCTION 
Z88 TO MAC KIT ALL WITH es, CABLES S ANP EQUIRED! 
| Z88 TO BBC KIT KS. EROMS AS RE 


POSTAGE UK UP TO £5. EEC £15. USA £20. OTHER COUNTRIES £30. 


ALL THE STOCK IS WARRANTIED FOR 90 DAYS. IN THE EVENT OF REPLACEMENT 
BEING ARGREED, BUT THE ITEM BEING OUT OF STOCK AT THE TIME, A REFUND 
WILL BE MADE PROVIDED THE ITEM [S RECEIVED IN GOOD CONDITION. 


QL & PC COMPUTER USERS WILL FIND THE CAMBRIDGE Z88 ESPECIALLY USEFUL FOR WORK AWAY FROM 
THE DESKTOP, WITH TRANSFER PROGS DATA CAN BE SAFELY EXCHANGED WITH THEIR DESKTOP SYSTEM. 


W.N.RICHARDSON & CO CONTINUES TO PROVIDE FULL SPARES AND 
SERVICES FOR SINCLAIR COMPUTERS. OL & THE CAMBRIDGE Z88 Z 
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_ * NAME FILE_CLOSE 

SS ec eR nee ene ee 
* DEPENDENCY None 
* PURPOSE Close the channel passed in AO 
% DESCRIPTION Close the file channel whose QDOS ID is in AG. To prevent 
& any original QL systems from serious problems, checks for #0 
% being closed and ignores it. 

_ * INPUTS : 

ig AQ.L = Channel ID to be closed 

_ * OUTPUTS : 
* DO is preserved as IQ_CLOSE does not return errors except NOT 
* OPEN and we ignore these here ! The Z flag is indeterminate 
® after this subroutine. 
* AO.L is returned 'undefined' to avoid using the channel again ! 
% 


Test for SuperBasic #0 
Ignore it 

Preserve the worker 
Prepare to close it 


_ file close cmpa.1 #0,a0 
beq.s fe_exit 
move. 40,-(a7) 
moveg #io_close,d0 


Noo Mew We Wwe Mo Swe 


trap #2 Close it 
move.1 (a7)+,d0 Restore the worker 
fe_exit rts 
er eee 
 * NAME FILE_OPEN 
Be a a ae Soe ei ie gop a a en a ett 
_ * DEPENDENCY None 
| * PURPOSE To open a file like 'OPEN #3,filename' 
| * DESCRIPTION Opens a file in mode 0 (old exclusive device) The filename is 
* passed in AO (a pointer to the name). The current job assumes 
% ownership of the channel. May need a TRAP #4 before calling if 
% the filename is relative A6 when called. (SuperBasic). 
* INPUTS : 
® AOQ.L = Pointer to filename 
 * OUTPUTS : 
_ % AO.L = Channel id. 
_* DO = Error code 
% Z flag set if no errors, unset otherwise. 
| een een 
file_open movem.1 di-d3,-(a7) ; Those workers need saving 
: moveq #0,03 ; Old exclusing device mode 
_ fo_params moveq #I0_OPEN,d0 ; Trap code 
moveq ~1,d1 ; Current job owns the channel 
trap #2 3 Open it 
movem.1 (a7)+,di-d3 ; Restore workers 
tst.1 40d ; Make sure Z is set/unset 
rts 
_# = 
 * NAME FILE_OPENIN 
| * DEPENDENCY = FILE_OPEN 
_ * PURPOSE To open a file like 'OPEN_IN #3,filename' 


| * DESCRIPTION Opens a file in mode 1 (old shared device) The filename is 
passed in AO (a pointer to the name). The current job assumes 
ownership of the channel. May need a TRAP #4 before calling if 
the filename is relative A6 when called. (SuperBasic). 

INPUTS : 
AQ.L = Pointer to filename 

OUTPUTS ; 
AG.L = Channel id. 
DO = Error code 
Z flag set if no errors, unset otherwise. 


i i i a a ed 


file _openin movem.1 di-d3,-({a7) j Those workers need saving 
moveqg #1,43 ; Old shared device mode 
bra fo_params ; Do the rest via FILE_OPEN 
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oi 
[ 
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*® NAME FILE_OPENNEW 
ec a ea Nc ae a tt 
*® DEPENDENCY FILE_OPEN 
* PURPOSE To open a file like 'OPEN_NEW #3, filename’ 
® DESCRIPTION Opens a file in mode 2 (new exclusive device) The filename is 
® passed in AO (a pointer to the name). The current job assumes 
* ownership of the channel. May need a TRAP #4 before calling if 
% the filename is relative A6 when called. (SuperBasic). 
* INPUTS : 
* AOQ.L = Pointer to filename 
* OUTPUTS : 
% AQ.L = Channel id. 
% DO = Error code 
% Z flag set if no errors, unset otherwise. 
x cm 
file opennew movem.1 di-d3,-(a7) ; Those workers need saving 
moveq #2,d3 ; New exclusive device mode 
bra fo_params ; Do the rest via FILE_OPEN 
% eS : 
_ * NAME FILE_OPENOVER : 
: | enaenemnnnrewe Fs 
| * DEPENDENCY = FILE_OPEN ] 
_ ® PURPOSE To open a file like ‘OPEN_OVER #3,filename' : 
_ ¥* DESCRIPTION Opens a file in mode 3 (new overwrite device) The filename is : 
 # passed in AO (a pointer to the name). The current job assumes : 
OO ownership of the channel. May need a TRAP #4 before calling if : 
 * the filename is relative A6 when called. (SuperBasic). : 
_ * INPUTS : : 
- Ok AO.L = Pointer to filename 
_ -¥ OUTPUTS : ‘ 
. * AO.L = Channel id. 
, ok DO = Error code : 
* Z flag set if no errors, unset otherwise. | 
Bh nc ncn L 
file_openover movem.1 di-d3,—(a7) ; Those workers need saving : 
moveq #3,d3 ; New overwrite device mode 
bra fo_params ; Do the rest via FILE_OPEN 
FILE_OPENDIR 


*® DEPENDENCY §FILE_OPEN 


% PURPOSE To open a file like ‘OPEN_DIR #3,devicename' 
* DESCRIPTION Opens a file in mode 4 (directory) The filename is 
* passed in AO (a pointer to the name). The current job assumes 
% ownership of the channel. May need a TRAP #4 before calling if 
* the filename is relative A6 when called. (SuperBasic). 
* INPUTS : 
% AQ.L = Pointer to filename 
* OUTPUTS : 
* AO.L = Channel id. 
% DO = Error code 
* Z flag set if no errors, unset otherwise. 
¥ err 
file_opendir  movem.1 d1-d3,-(a7) ; Those workers need saving 
moveq #4,43 ; Directory mode 


bra fo_params 


; Do the rest vie FILE_OPEN 


So, that was plenty of useful routines. Next issue, | There will also be a BASIC listing which shows 
we will add more routines, including various input you how to extract details from libraries and how 
and output (now that you know how to open _ to check for depencies. 

files). 
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Devices in QPAC2, QMenu etc. 


Jochen Merz 


One or two customers com- 
plained about the fact, that 
QPAC2 (and QMenu's File-Se- 
lect menu, for example) always 
underline the first character of a 
device name in the device se- 
lect window, 

This has not been a problem in 
the past, at least not until 
RomDisq came into existance. 
Both RAM for any RAM-Disk 


and ROM for the RomDisq start 
with "R’, so there's a clash. 
The same has happened with 
the new QPC2's DOS-Device: it 
starts with "D’, and so does 
DEV for a long time! 

As | am using both DOS and 
DEV, | can see the problem - it 
is pretty annoying not to be 
able to use the selection key, 
The solution, however is quite 


easy: rename the new devices 
so that they start with a unique 
character! 

| would not suggest to rename 
the ‘well etablished” device 
names, e.g. MDV FLP RAM, WIN 
and DEV, but | do not see any 
problems in renaming the new 
ones. Dream up replacement 
names, however, is not as easy. 
How about PCW’ for "PC WIN’ 
or "MSP" for Microsoft Parti- 
tion? 

Any suggestions for RomDisq? 
Difficult, | have yet to come up 


Error Trapping 


David Denham 


Continuing to try to educate myself on QL 

SuperBASIC and sharing my learnings with QL 

Today readers, here's a short article about error 

trapping on the QL. | write a lot of programs for 

myself in SuperBASIC, so error trapping is very 
important for me as some of the programs get 
used in a business environment. 

QL error trapping seems to revolve around a few 

types of structures: 

e the WHEN ERROR keywords, along with 
RETRY CONTINUE, ERNUM, ERLIN and 
REPORT keywords 

e the Turbo Compilers WHEN ERROR and 
DEVICE_STATUS structures 

® QLiberator’s Q_LERR_ON, Q_ERR_OFF and 
Q_ERR 

@ Toolkit 2 style functions which add new func- 
tions in place of existing SuperBASIC proce- 
dures - these functions make it easier to trap 
file errors. 


Error handling in the context of this article falls 

into four main categories: 

e User input errors, e.g. a program expects a 
number, the user enters text and the program 
falls over. 

® File error trapping 

e Bad programming not catering for uncommon 
or unexpected factors arising. 

e Actual programming errors 

Not a lot can be done about the fourth example, 

apart from perhaps a ‘catch-all’ error message 

which at least allows the program to “fall over’ 
ticily. 
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with anything sensible yet. 


WHEN ERROR 

This is a general purpose error trapping structure 
which is part of SuperBASIC in versions of the 
QL ROM from version JS onwards. It does not 
work on early versions of the QL ROM like ver- 
sions FB, AH and JM. To check which version of 
the QL ROM you have, enter the command 
PRINT VERS. This will print a 2, 3 or 4 letter code 
indicating the version of SuperBASIC (or SBASIC 
if you are using the SMSQ). Minerva users will get 
the code ‘JSL1’, while SMSQ users will get 'HBA’ 
There are some minor problems with WHEN 
ERROR in versions JS and MG of SuperBASIC, 
but the keywords are largely useable. 

The structure is defined with a WHEN ERROR 
statement (SuperBASIC actually lists it as WHEN 
ERRor - you can just type in WHEN ERR and 
BASIC will expand it to WHEN ERRor. The end of 
the structure is indicated with an END WHEN 
statement. Any lines of code between these 
Statements are ignored until an error occurs, then 
the program executes what's between these 
statements when an error happens. 


100 WHEN ERRor 

110 PRINT"Oops...i" 

120 END WHEN 

130 INPUT "Enter a number > ";number 


The above little program asks you to enter a 
number. Enter some text or some other non-nu- 
merics and the program will say ‘Oops’ if you 
manage fo cause an errot In practice, it does little 
to prevent the program falling over when an error 
happens, but it’s a start. 


The functions ERNUM and ERLIN will tell you the 
error number code and line at which the last error 
occurred respectively. 
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on ater rier QL Users Group 


Worldwide Membership is by subscription 
only, and offers the following benefits: 
Monthly Newsletter - up to 40 pages 
Massive Software Library - All Free ! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 
Advice on Software and Hardware problems 
Subscription just £14 for UK members 
Overseas subscription £17 


Barclaycard: Visa: Access: Mastercard 


* Now in our Eighteenth successful year * 


Further details from the Membership Secretary 


Bill Newell, 213, Manor Road 
Benfleet, Essex, SS74JD 
Tel. +44(0)1268 754407 


or 
Visit the Quanta Web Site 


http://www. quanta.uni.cc 
email: quanta_membership @ uk2.net 
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100 WHEN ERRor 

110 PRINT"Oops! Error ";ERNUM;' at line 
'sERLIN 

120 END WHEN 

130 INPUT "Enter a number > ':number 


The keyword REPORT will print the error 
message corresponding to the error code 
number By specifying a channel number the 
message can be printed to a screen window of 
your choice. 


100 WHEN ERRor 
110 PRINT"Oops! Error ";ERNUM;' at line 


'; ERLIN 
115 REPORT #1,ERNUM 
120 END WHEN 


130 INPUT "Enter a number > ';:number 


If you want to turn off error trapping for any 
reason in any part of your program, you can just 
execute an empty WHEN ERRor clause: 


1000 REMark oh oh, no error trapping after 
this! 

1010 WHEN ERRor 

1020 END WHEN 


In practice, this doesn't seem to work too well on 
some ROM versions. 


You can add CONTINUE or RETRY statements to 
specify how the error handler will pick up after 
the error CONTINUE will (as the name implies) let 
the program just carry on after the error - your 
program can check what happened and take 
appropriate action ~ while RETRY will make it go 
back to the statement which caused the error, 
useful for INPUTs for example. 


100 WHEN ERRor 

110 REPORT #1,ERNUM : PRINT" at line ";ERLIN 
120 PRINT"You should enter a number, silly!" 
130 RETRY 

140 END WHEN 

150 INPUT"Enter number 1 > ";numi 

160 INPUT"Enter number 2 > ";num2 


When it asks you to enter number 1, just press 
ENTER (ie. a blank entry). Normally this would 
Cause an ‘error in expression’ but the error 
handler here tells you that you should have 
entered a number and then directs you back to 
that statement to re-enter the number Some care 
is needed with the layout of the messages - 
REPORT normally issues a linefeed after the 
message, so the above program may result in 
untidy output like: 
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Number 1 >» error in expression 
at line 40 

You should enter a number silly! 

Number i > 


| leave that to you as an exercise! 


One point to note here is that the WHEN ERROR 
structure cannot as far as | Know be used to trap 
BREAK. You can stil CTRL SPACE out of a pro- 
gram which is error trapped, so you don't have to 
worry about creating a BASIC program which will 
trap you in an endless loop! 


lt may have occurred to you that the program 
may not run correctly on an older ROM version 
such as JM. | suspect that not a lot can be done 
about this if the ROM version concerned won't 
even load a program containing WHEN ERROR 
and REPORT statements, but if these can be 
loaded at all then a piece of code like this may 
help to reduce the il-effect by letting the program 
check the ROM version and not execute the 
code concerned if it is an AH or JM ROM for 
example: 


(| honestly don’t know if this will work but it's a 
useful hint for various other ROM-version 
dependent issues) 


100 v$=VER$ 

110 IF NOT(v$="AH" OR v$="JM") THEN 
120 WHEN ERRor 

130 REPORT #1, ERNUM 

4140 PRINT" at line ";ERLIN 

150 END WHEN 

160 END IF 


Another useful application of this little trick is 
when a program needs to access the system 
variables (OK, | know I'll be lined up against a wall 
and shot at dawn for suggesting a program 
messes about with the system variables). 
Minerva (and, | think SMSQ) has a special version 
of VERS which can tell you the base address of 
the system variables. Most Sinclair ROMs have 
the system variables at a fixed address in 
memory, so accessing them from this address 
should be OK. 


100 v$=VER$ 

110 IF v$="JSLi" OR v$="HBA" THEN 
120 sysvar_addr=VER$(~2) 

130 ELSE 

140  sysvar_addr=163840 

150 END IF 
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TURBO 

The Turbo compiler has a slightly different im- 
plementation of WHEN ERROR which although a 
bit harder to learn at first, it does have a few 
extra features, is more reliable on different ROMs 
and in theory at least works on all ROM versions. 
Turbo uses the WHEN_ERROR keyword {note the 
underscore between the two words) and this 
works at two levels. WHEN_ERROR 0 Is a ‘global’ 
error handler which can be used as a general 
way of reporting errors and closing programs 
down more tidily while WHEN_ERROR 1 is a se- 
cond level of error trapping which can be varied 
depending on the routine in use at the time. 
Turbo also has fhe functions ERLIN% and 
ERNUM% to complement WHEN_ERROR and 
END_WHEN, but no equivalent to REPORT unless 
you write your own, using a SELECT ON clause 
to match short messages up to the various error 
codes. CONTINUE and RETRY work differentiy 
under Turbo. CONTINUE turns off error proces- 
sing at the level given - WHEN_ERROR 
LCONTINUE:-END_WHEN will cancel level 1 error 
trapping, and WHEN_ERROR 
O:CONTINUE:-END_WHEN will turn off level 0 error 
processing. RETRY makes program execution 
resume at the statement indicated by a 
RETRY_HERE keyword. It can often be useful to 
place RETRY_LHERE keywords in front of INPUT 
statements or file accesses. 


100 IF COMPILED THEN 

110 WHEN_ERROR 0 

120 PRINT "Oops, due to error ";ERNUM%;" 
at line ";ERLING 

130 PRINT "this program will now close 
down." 

140 CONTINUE 

150  END_WHEN 

160 END IF 

170 REMark a useless little test program 

180 CLS 

190 IF COMPILED THEN 

200 WHEN _ERROR 1 

210 PRINT"Enter a number, silly!" 

220 RETRY 

230 END_WHEN 

240 END IF 

250 FOR entry=1 TO 10 

260 RETRY_HERE:INPUT"Enter number ";(a);" > 
"s;number 

270 END FOR entry 

280 REMark turn off level 1 error trapping 

290 IF COMPILED THEN 

300 WHEN _ERROR 1 

310 CONTINUE 

320 END _WHEN 

330 END IF 
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This error trapping only works in Turbo compiled 
programs, so if is a bit hard to test if running the 
program uncompiled. The best you can do is to 
surround the ‘Jurbo-specific bits with IF 
COMPILED THEN statements to prevent the 
interpreter trying to execute them. COMPILED is 
a Turbo function which returns a value of 0 if a 
program is running under the interpreter or 1 if 
running as a compiled task. 

| dislike Turbo’s error trapping because it is a bit 
fiddly to use in my opinion, and difficult to test 
uncompiled, although it is doubtless a very well 
thought out and comprehensive system of error 
trapping for compiled programs. 


QLIBERATOR 

QLiberator’s approach to error trapping is very 
different to Turbo's system. It has the advantage 
of working in uncompiled programs, but is 
non-standard and perhaps leads to bulkier code 
as you have to write a piece of code for each 
possible error trap rather than write a general 
error handler. 

lt works by converting QL keywords which are 
writfen as procedures into functions so that they 
return error codes which can be tested with the 
Q_ERR function. Thus, INPUT would work as 
normal, but if an error occurred the program 
would not stop, but rather you could test if an 
error occurred using Q_ERR and take appro- 
priate action. 

The command Q_ERR_ON ‘command_name’ 
(where ‘command_name’ is a procedure like 
INPUT, OPEN, etc) turns on error trapping for that 
command. Now any error which happens is 
trapped and Q_ERR will give you a number 
indicating what went wrong: 


100 Q_ERR_ON 'input' 

110 REPeat input_loop 

120 INPUT'Enter a number > ';number 
130 IF Q_ERR=0 THEN EXIT input_loop 
140  PRINT\'Oops, error ';Q_ERR 

150 PRINT'Enter a number, silly!' 
160 END REPeat input_loop 

170 Q_ERR_OFF ‘input! 

180 PRINT'Number entered OK’ 


The Q_ERR_OFF statement removes the error 
trapping from that procedure name and turns 
things back to normal. 


File Acces Error Trapping 

As with general error handling, the various 
compilers and interpreted BASIC differ in their 
approach to this. 
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A command as simple as OPEN_IN #3 filename$ 
can cause a program to stop with an error if 
there is no disk in the disk drive concerned, or if 
the file does not exists. 

SuperBASIC can use WHEN ERROR to work 
around this as described above. 


106 WHEN ERRor 

110 PRINT"That file can't be found! *; 
120 REPORT #1,ERNUM 

130 INPUT"Press ENTER to retry.";2$ 
140 RETRY 

150 END WHEN 

160 CLS 

170 INPUT"Enter filename >» ";f$ 

180 OPEN_IN #3,f$ 

190 CLOSE #3 

200 PRINT "Managed to open ";f$ 


This little routine would give you a chance to 
insert the correct disk if an error occurred during 
the first attempt. 


Turbo users have an additional weapon in their 
armoury. The DEVICE_STATUS function tests a 
file first and returns a code to tell you if the file is 
accessible or not. A negative number usually 
means some form of error occurred while zero 
or a positive number lets you know it managed 
to access the file. There are several versions of 
DEVICE_STATUS all using different parameters, 
and | don't fully understand them ail, but the main 
thrust is the same: 


PRINT DEVICE_STATUS("filename") will return 
an error code you can act on accordingly: 


100 INPUT'Filename >» ';f$ 

110 file_error_code = DEVICE_STATUS(f$) 

120 IF file_error_code « 0 THEN 

130 PRINT"Oops, error 
'sfile_error_code 

140 ELSE 

150 PRINT"File accessed OK" 

160 END IF 


One bug-bear with this command is that the 
‘basic’ version does not manage to catch all 
errors, for example, it doesn't test if you can 
write to the file, if the disk is write protected and 
SO on. You need to use the more advanced form 
of the command for that. 


QLiberator’s approach to file access is exactly 
the same as that described for INPUT above, just 
use Q_ERR_ON ‘OPEN_IN’ (or whatever file 
command you intend to use) and take appropri- 
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ate action depending on the value returned by 
Q_ERR. 


100 Q_ERR_ON 'OPEN_IN' 
110 REPeat file_loop 


120 INPUT'Enter a filename » ';f$ 
130 OPEN_IN #3,f$ 
130 IF Q_LERR=0 THEN CLOSE #3:EXIT 


file_loop 


140 PRINT\'Oops, error ';Q_ERR 
160 PRINT ‘Could not access ';f§ 
150 PRINT'Enter a number, silly!' 


160 END REPeat file_loop 
170 Q_ERR_OFF 'OPEN_IN! 
180 PRINT'File accessed OK! 


Another approach to protected file access is 
offered by extensions such as the file open func- 
tions in Toolkit 2. Functions like FTEST FOP_IN, 
FOP_NEW and so on return error codes indica- 
ting success or failure of the file operation rather 
than just stopping the program with an error if an 
error occurred. This allows the program to take 
corrective action when errors occur and gene- 
rally makes programs more robust for users. 

The FTEST function works rather like 
DEVICE_STATUS described above. You give the 
filename of the file to be tested and it tries to 
open it for input (sadly it doesn't tell you if you 
can write to the file) and tells you via the function 
value returned if the access worked or not: 


100 INPUT"Filename » ";f$ 

110 file_error_code=FTEST( f$) 

120 PRINT"FTEST returned the value 
":file_error_code 


The other five Toolkit 2 functions are 


FOPEN tries to open a file like OPEN 
FOP_IN tries to open a file like OPEN_IN 
FOP_NEW tries to open a file lke OPEN_NEW 
FOP_OVER tries to open a new file and if that 
file already exists, it is overwritten 
and a new file created in its place 
FOP_DIR Opens a directory on the disk - 


use this one with care unless you 
know what you are doing! 


These 5 functions can be used in two ways. 

lf you supply just the filename as a parameter, the 
functions will try to find an unused channel 
number and if the file was opened successfully, 
that positive channel number is returned. if it 
failed to open a channel to the file, a negative 
error number is returned. 
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100 INPUT'Filename >» ';f$ 
110 file_error_code=FOP_IN(f£$) 
120 IF file_error_code<0 THEN 


130 PRINT*Error ";file_error_code 

140 ELSE 

150 PRINT*Channel ";file_error_code;" opened 
to "sf$ 

160 CLOSE #file_error_code : REMark tidy up 
after use 

170 END IF 


if you supply two parameters, the first is taken to 
be the channel number you want used to open 
the file: 


100 INPUT'Filename > ':f$ 

110 file_error_code=FOP_IN(#3, £$) 
120 IF file_error_code<0 THEN 

130 8 =©PRINT" Error ";file_error_code 


140 ELSE 
150 PRINT"Channel 3 opened to ";f£$ 
160 CLOSE #3 : REMark tidy up after use! 


170 END IF 


Obviously, programs written to use the FOP_xxx 
extensions will only work if Toolkit 2 is present 
on the system. It is built into just about any QL 
system worth having these days [with the ex- 
ception of some emulators which can't include it 
due to obvious copyright issues - Editor] so it 
need not be an issue really, 

This is probably the main issue about error trap- 
ping - trying to ensure that whatever technique 
you use is likely to work on all of the systems 
the program is likely to be used on! 

| learned a lot while preparing this article, | hope 
someone else finds it as useful 


Gee Graphics! (on the QL?) - Part 24 


H L Schaaf 


Circle packing 

The cover picture on the April 
2l1, 2001 issue of Science 
News was of many circles 
packed within a circle. So how 
would we use the QL to create 
a similar picture? That's the 
Subject of this article and the 
program listing "CM/7k3_bas’. 
‘CM’ for ‘Circle Math, 7th ver- 
sion, kth modification, 3rd revi- 
sion. 


130: 


210 : 


oe WIV : PAPER 0 
The cover story tells how 280 MODE 4 
Statistician Allan Wilks at a 
1998 conference in Germany 
was talking about the home- 
work geometry problem of 
another colleague's daughter. 
The problem was to neatly fit 
another circle into an outer unit 
circle that already had two 
identical half-unit circles side 
by side inside touching each 
other and the outer circle. 


300 : 


330 REMark in 


340: 
360 


390: 
400 


420 


440 TnZ(0,0) = 2 

450 : 

460 lastgood$='' 

470 lastcands = 0 
480 : 


This turns out to be an old 
problem going back to least 
the time of Apollonius of Perga 
(born 262 BC, died 200 BC) 
who described it in his book 
“Tangencies’. He also wrote 8 
books on “Conic Sections” and 


500 


530 


xoff = 
540 = 


X_ctr 
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100 REMark CM7k3b_bas 
110 REMark HL Schaaf September 15, 2001 
120 REMark for use with GG#24 


140 REMark Science News Vol. 159 Apr 21, 2001 p.254+ 

150 REMark thanks to Pete Goffinet for the challenge! 

160 REMark 4 mutually tangent circles 

170 REMark curvatures a, b, c, d as reciprocals of radii 

180 REMark (a¥a + b¥b + e¥c + d¥d) = (1/2) * (a+b+e4d)2 
190 REMark use negative value for outer circle 

200 REMark given a,b,c 


; find d 


220 REMark example shown in article 

230 REMark given outer circle radius 1, curvature -1 

240 REMark and two inner circles radius 1/2, curvature 2 
250 REMark find 4th circle tangent to all, curvature = 3 


: INK 7: CLS 


290 INPUT "how many circles ? ",num cir 


310 DIM Cir(num_cir,4) 
320 REMark store curvature, x and y centers, radius, circle # 


0; 1, 2 3 


350 REMark a spawn list, which 3 generated the 4th ? 

DIM spawn%(num_cir, 3) 

370 REMark have these in order and check for prior usage? 
380 REMark use zeroth element for timing 


REMark check for tangency between circles 

410 REMark could treat as a vector in half the space ? 
REMark using strictly triangular matrix conversion ? 
430 DIM Tn%(num_cir, num cir) 


: REMark last good circie string 
: REMark last candidate circle 


490 REMark take input as a positive value and convert to negative 
INPUT#O, "first (outer) circle curvature ?",a 

510 REMark scale so always fills screen 

520 y_size = 2.2*ABS(1i/a) 

—1.6*ABS(1/a): y_off = -1.1*ABS(1/a) 

0: yctr=0: ysiz = y size 
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550 SCALE y_size, x_off, y_off : CLS 

560 REMark provision to ‘zoom in' on a region 

570 : 

580 Cir(0,0)=Cir(0,0)4+1 : REMark count = 1 

590 Cir(1,0)= -a : Cir(1,i)=0 : Cir(1,2)=0 :Cir(1,3)=-1/a 
600 Cir(1,4)= 1 

610 INK 244 :FILL i 

620 CIRCLE 0,0,-i/a 

630 FILL 0 :INK 7 

640 AT 12,60:PRINT 1 

650 : 

660 INPUT#O0, "second (inner) circle curvature ? »>"&a,b 
670 REMark center on x = (i1/a) - (1/b), y = 0 

680 REMark center on x-axis and tangent at 3 o'clock 
690 Cir(0,0)=Cir(0,0)+1 : REMark count = 2 

700 Cir(2,0)=b : Cir(2,1)=(1/a)—(i/b) : Cir(2,2)=0 :Cir(2,3)=1/b 
710 Cir(2,4)=2 

720 INK 2: FILL 1 

iG CIRCLE ((1/a)-(1/b)),0,1/o 

740 : 

750 REMark now figure minimum curvature for 3rd circle 
760 min3 = 1/((1/a) - (1/o)) 

770 INPUT#O, "third (inner) circle curvature ? >="&min_3,c 
780 REMark start clock for timing 

790 startime = DATE 

800 REMark solve for three mutually tangent circles 

810 REMark one outer w/negative, two inner w/positive 
820 si=i/b +1/e : s2 = ABS(1/a) - 1/b : 83 = ABS(i/a) - i/c 
830 alph_arg = ((s2*s2 + s3%s3 - si¥s1)/(2%s2%s3)) 

840 IF ABS(alph_arg)>1: alph_arg = SGN(alph_arg) 

850 alph = ACOS(alph_arg) 

860 x3 = COS(alph)*s3 : y3 = -SIN(alph)*s3 

870 Cir(0,0)=Cir(0,0)+1 : REMark count = 3 

880 Cir(3,0)=c : Cir(3,1)=x3 : Cir(3,2)=y3 :Cir(3,3)=1/¢ 
890 Cir(3,4)=3 

900 INK 4 : FILL i 

910 CIRCLE x3,y3,1/¢ 

920 INK 7: FILL 0 

930 FOR i = 2 TO 3 

940 CURSOR Cir(i,1),Cir(i,2),-5,-5 

950 PRINT i 

960 END FOR i 

970 : 

980 REMark find the 4th circle that fits 

990 fourth_cireles Cir(i),Cir(2),Cir(3) 

1000 REMark in case we get 5, pick the largest 

1010 IF Cir(0,G)= 5 THEN 

1020 IF Cir(5,0) « Cir(4,0) THEN 

1030 INK 242 : FILL 1:CIRCLE Cir(4,1),Cir(4,2),Cir(4,3):FILL 0 
1040 CURSOR Cir(5,1),Cir(5,2),-5,-5: PAPER 0: INK 7 :PRINT 4 
1050 FOR i= 0 T0 3 

1060 cir(4,i) = Cir(5,1) 

1070 Cir(5,i) = 0 

1080 spawn$(5,i)=0 

1090 END FOR i 

1100 Cir(0,0) = Cir(0,0)-1 

1110 END IF 

1120 END IF 

1130 check tangency 

1140 acir = 4 

1150 pack_circles 

1160 : 

1170 AT 0,0 : PRINT Cir(0,0) 

1180 PRINT #0;'touch [space bar] for curvatures ' 

1190 PAUSE :CLS #0 

1200 show_curvatures 

1210 PRINT #0;"touch [spacebar] for list of curvatures "; 
1220 PRINT #0;" & centers, 20 at a time" 

1230 PAUSE : CLS #0: CLS 

1240 list_curve_ctrs 

1250 PRINT #0; ‘any key for etr2ctr' 

1260 PAUSE :CLS #0 :CLS 

1270 redraw_circles 

1280 ctr2ctr 

1290 PAUSE 300 
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is credited with the first use of 
the expressions ‘ellipse’, ‘para- 
bola’, and ‘hyperbola’. 


In 1643 Rene Descartes de- 
scribed a general solution with 
‘Cartesian’ geometry in a letter 
to his student, Princess Eliza- 
beth of Bohemia. Descartes 
expressed the size of the cir- 
cles in his formula by their cur- 
vature (reciprocal of the radius). 


Wilks found the problem intri- 
guing and with fellow workers 
at Bell Labs found new and 
interesting mathematical pat- 
terns and relationships and de- 
veloped new theorems and 
formula, extending them into 
hyperbolic and spherical 
packings as well. 


Book Vill of Apollonius is mis- 
sing, as well as "Tangencies’, 
so could it be that Wilks et al 
are just rediscovering things 
that might have been known to 
the ancients? 


Wilks’ team had Bell Labs com- 
puters, matrix math, complex 
number systems, etc. available 
and they used them. Let's see 
what we can do with the QL. 


In order to pack in order with 
next largest circle possible, we 
build a list of candidates, then 
SORT them. This means we 
need a way to sort them. 
LRESPR "SORT" from the 
Quanta Library before running 
"CM7k3_bas’, 


INPUT the number of circles 
wanted. Try 19 to start with. 
You are then asked for the 
curvatures of the first 3 circles. 
You can try 1, 2, and 3 as a 
Starter set. In a few seconds 
you should have the picture. 
Touch the [spacebar] until you 
get to the little menu at the 
bottom. Try the different op- 
tions in various orders. Enjoy! 
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lim stillen Winkel 12. D-47169 Duisburg| 
| Tel. 0203 502011 Fax 0203 502012 
| http://www.j-m~-s.com/smsq/index.htm 


QPC2 Version 2 


| We have told you about the new features many times in advance: they are 
| all fully functional: QPC2 is now running inside a Windows window (but, of 
course, full screen can be used as well). You have access to 65536 colours 
|etc. Not to forget the DOS device. You can now read and write from and to 
DOS and Windows harddisks. DOS1_ = C:, DOS2 = D: and so on! 


See review previous 
issue! 


To avoid confusion: If you already own QPC2 (Version 1), then the upgrade 
is NOT free!. The naming is a bit confusing (we should have called it QPC3, 
but now it is too late, isn’t it?), so here is the complete price list: 


From QPC1 (or just QPC - the first QPC!) £41.90 
From QPC2 Version 1 (or just QPC2) £25.90 
From QPC2 Version 2 any Pre-Release 

or Version 2 full release FREE! 


| You can get free Updates in the JMS BBS (+49 203 502013 and 502014) 
| You will also find the free Update on the Internet: http://qpc.j-m-s.com 


sanaRie eeenne anon 
RED 


Lee 


cere uaE Es: 


Postage and package [Germany] DM 8,99 (if total value of goods is up to DM 50, then only DM 5,99). 
| [Europe] £4,50 (if total value of goods is under £15 then only £3). 
| [Overseas] between US$7.50 (1 item) and US$17.50 (maximum). 
| All prices incl. 16% V.AT. (can be deducted for orders from non-EU—countries). 
| Cheques in DM, EURO, International Money Order in DM or EURO (they all have to be drawn on Gennae banks, 5 Eorpeneres an 
| Credit Cards accepted. Please note that Eurocheques will not be valid anymore in 2002! . 
| Prices are based on an average exchange rate of £1 ranging between DM 3,10 and DM 3,20. “ey 


| Prices may be adjusted in case the exchange rate falls out of this range - in both directions! 
We can charge your credit cards in £’s, US$, EURO or in DM - please state the currency you prefer. __BUROSARD. 
Please do not send any UK bank cheques in £ - our banks have increased the fee for handling them = 
| by 600% (no joke!) so we cannot accept then anymore, unless you add £6 for clearing the cheque. —=«VISA 
E&OE. —— 
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1300 number_centers 

1310 PRINT #0;"any key for options menu" : PAUSE 
1320 CLS #0 : options_menu 

1330 STOP 


1340 


1350 REMark the ‘main engine’ 
1360 DEFine PROCedure pack_circles 


1370 REPeat runarnd 

1380 check_tangency 

1390 cand$='' : REMark candidate list 

1400 cand$=lastgood$ : REMark candidate list 
1410 candidate$ = '' 

1420 cands = lastcands 

1430 last_cir = acir - (Cir(0,0) = 4) 

1440 acir=Cir(0,0) : REMark active circles ? 
1450 AT 0,0 : PRINT Cir(0,0);' of ';num_cir 
1460 POR peri = 1 TO acir 

1470 AT 11,5 :PRINT (peri);' | 

1480 FOR per2 = perl +1 TO acir 

1490 IF NOT(Tn%(per2,peri)): NEXT per2 
1500 AT 12,5 : PRINT (per2);' ' 

1510 FOR per3 = last_cir TO acir 

1520 IF NOT(Tn%(per3,per2)) : NEXT per3 
1530 AT 13,5:PRINT (per3);" ! 

1540 IF Tn%(peri,per2) AND Tn%(peri,per3) AND Tn%(per2,per3) THEN 
1550 DIM soper(3) 

1560 soper(1)=perl:soper(2)=per2:soper(3)=per3 
1570 SORT soper ,i 

1580 candidate$="#" &soper(1)&', '&soper(2)&', ' &soper(3) 
1590 cand$ = cand$&candidate$ 

1600 eands = cands + 1 

1610 END IF 

1620 IF (Cir(0,0) >» numcir) : EXIT runarnd 
1630 END FOR per3 

1640 END FOR per2 

1650 END FOR perl 

1660 REMark now to simplify the candidate string ? 
1670 good$ = '' 

1680 REPeat duplicates_out 

1690 sis"#" INSTR(cand$) 

1700 «IF (sico1) THEN 

1710 good$=good$&cand$ 

1720 EXIT duplicates_out 

1730 END IF 

1740 s2 = 1 + "#"INSTR(cand$(2 TO)) 

1750 IF s2 = 1 THEN 

1760 good$ = good$ & cand$ 

1770 EXIT duplicates_out 

1780 END IF 

1790 test$= cand$(sl TO (s2-1)) 

1800 match = test$ INSTR(cand$(s2 TO)) 

1810 IF match THEN 

1820 cand$=cand$(s2 TO) 

1830 eands = cands-1 

1840 ELSE 

1850 good$ = good$&test$ 

1860 test$ = '' 

1870 cand$ = cand$(s2 TO) 

1880 END IF 

1890 END REPeat duplicates_out 

i900: 

1910 cand$=good$&'#! 

1920 DIM cand(cands,3):DIM cantag%(cands) 
1930 FOR i = i TO cands 

1940 DIM num(3) 

1950 shi = '#' INSTR cand$ 

1960 comi = ', INSTR eand$ 

1970 com2 = comi + ',' INSTR cand$(comi+i1 TO) 
1980 gh2 = 1 +'#"INSTR cand$(shi+i TO) 

1990  num(1) = cand$(2 TO comi-1) please let us know. 
2000 num(2) = cand$(comi+1 TO com2-1) 

2010 num(3) = cand$(com2+1 TO sh2-1) 

2020 FOR j = 1703 

2030 cand(i,j)=num{j) 

2040 END FOR j 


A few comments regarding the layout 
Herbs listing ts fairly long this time. As we know 
that some of our readers type the listing in or 
read them with interest, we try to make their 
life a bit easier (as requested). First, the listings 
are on the outer side of each page. This 
makesit easier to keep the magazine opened 
while typing. We have not reduced the font 
size too much, and we have not printed in two 
columns sideways. | hope this is OK - if we can 
do anything else to help you reading or typing, 


Wilks’ cover picture has about 
405 circles, and the QL with 
SGC and SMSQ/E takes less 
than a half-hour to work them 
all out. In order to see the 
smaller details, use the Zoom 
option from the menu, they're 
all there! 


For those with internet access: 
website for Science article on 
Circle Math 
http://www.sciencenews.org/ 
20010421/bob18.asp 

updated version of "Homoge- 
nous Coordinates’ The Visual 
Computer 1994 Jules Bloo- 
menthal's website 
www.unchainedgeometry.com/ 
jbloom/ papers/index.html 


For future articles? There must 
have been some changes to 
SMSQ/E since the 
Graspix_bas exercise (GG#3, 
March/April 1998). It shows up 
in the MODE 4 testing when 
BLOCKS and PIXELS dont 
always match up any more. 
This also shows up in the later 
versions of QPC2. | hope to 
look into this, and also get 
back to the use of matrices 
and homogenous coordinates 
in graphics. 
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COMPETITION 


Recently on the QL Users 
Email Mailing List a short 
dialogue took place, initiated 
by Norman Dunbar | think. The 
idea was to pursue something 
Roy Wood had said in QL 
Today before, namely make up 
witty acronyms or whatever 
out of well known computer 
names or terms. In order to 
add a bit of fun to QL Today, | 
asked Jochen if he'd stump up 
a prize for the wittiest entry 
(well, | didn't give him much 
choice actually). The competi 
tion means you have to come 
up with something like the let- 
ters QL standing for Quaint 
Lump or Quite Late. Per Witte 
on the mailing list from The 
Netherlands came up with the 
letters of my name (DILWYN) 
standing for Devil Is Living in 
Wales You kNow, which would 
hardly win the prize but made 
me smile nonetheless. Any- 
thing I've seen before such as 
in Roy's list or which are un- 
printable will be disqualified. En- 
tries which make me laugh will 
win marks. Entries which belit- 
tle other computing systems 
will also gain a few points. Per- 
sonal insults will lose marks. 

| will judge this one myself and 
my decision is final. (Got that 
Jochen and Bruce?) 


Some examples of possible 
targets to aim for: 

DILWYN, BRUCE 

JOCHEN MERZ 

SINCLAIR 

QDOS (Quite Decidedly OS 
Supreme ~ thanks Per Witte!) 
SMSQ, MSDOS 

LINUX, WINDOWS 

AURORA 

SGC 


Looking forward to spending a 
long time judging all the en- 
tries. Hopefully, you all want a 
software voucher from JMS! 
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2050  eand$=cand$(sh2 TC) 

2060 END FOR i 

2070 =: 

2080 REMark figure 4th curv 

2090 FOR i= 1 TO cands 

2100 = di: = -curvs4(Cir(cand(i,1),0),Cir{cand(i,2),0),Cir(eand(i,3),0)) 
2110  cand(i,0)=41 

2120 END FOR i 

2130 AT 15,5: PRINT cands 

2140 REMark sorted candidates = socan 

2150 DIM socan(cands) 

2160 FOR i= 41 TO cands 

2170 socan(i)=cand(i,0) 

2180 END FOR i 

2190 IL_FILL canteg%, 0, 1 

2200 SORT socan ,1 , cantag% 

2210 ne=l 

2220 low val = cand(cantag%(nc),0) 

2230 REPeat new_cires 

2240 en = cantag%(nc) 

2250 fourth_cireles Cir(cand(cen,1)),Cir(cand(en,2)),Cir(cand(en, 3)) 
2260 IF Cir(0,0)=num_cir :EXIT runarnd 

2270 ne =neti 

2280 IF cand{cantag%(nc),0)>low_val : EXIT new_cires 
2290 END REPeat new_cires 

2300 lastgood$='' 

2310 FOR i = ne TO cands 

2320 lastgood$=lastgood$&! #' 

2330 FOR j = 1 TO 3 

2340 lastgood$=lastgood$&cand(cantag%(i),j)&',' 
2350 END FOR j 

2360 END FOR i 

2370 lasteands = cands-ne+i 

2380 END REPeat runarnd 

2390 END DEFine pack_circles 

2400 REMark end of ‘main engine’ 

2410 : 

2420 DEFine PROCedure fourth_circles {cirl, cir2, cir3) 
2430 LOCal a, b,c, di,d2 

2440 new_found = 0 

2450 di = curvs4 ( cirl(0), cir2(0), cir3(0) ) 

2460 d2 = curv4b 

2465 FOR d12 = di, d2 

2470 REMark now try to place it ! solve for x,y 

2480 REMark cir4 & cir3 are tangent c2c = line A 

2490 si = 1/d_1.2 + cir3(3) :REMark side a 

2500 REMark other sides are r2+r3 and r2 + i/d_i2 
2510 s2 = cir2(3) + cir3(3) : s3 = cir2(3) + 1/d.1.2 :REMark sides b & 
2520 REMark given 3 sides can find angle A 

2530 Arg_A = (s2%s2+93%s3-s1*s1) /(2%s2%s3) 

2540 IF Arg A< -1: ArgA=-1 

2550 Ang_A = ACOS(Arg_A) 

2560 Ang23 = RAD(ang] frm (cir2(1),cir2(2),cir3(i),cir3(2))) 
2570 x=O0:y=0 

2580 xa = cir2(i)+(s3*COS(Ang23~Ang_A)) 

2590 ya = cir2(2)+(s3*SIN(Ang23—Ang_A)) 

2600 xb = cir2(1)+(s3*COS(Ang23+Ang_A)) 

2610 yb = cir2(2)+(s3*SIN(Ang23+Ang_A)) 

2620 DIM ctr_used(2) 

2630 DIM cir4a(3) : DIM cir4b(3) 

2640 cir4a(0)=d_1_2 :cir4b(0)=d_1.2 

2650 cir4a(i)=xa :cir4b(1)=xb 

2660 cir4a(2)=ya :cir4b(2)=yb 

2670 cirda(3)=1/d_1.2 :cir4d(3)=1/d_12 

2680 : 

2690 REMark check for previous usage 

2700 FOR ci = 1 TO Cir(0,0) 

2710 REMark another way to check? 

2720 REMark distance from xa,ya to center of circle cir(ei,1),cir(ci,2) 
2730 REMark compared to radius of cir(ci,3) ? 

2740 IF dist_btwn(xa,ya,Cir(ci,1),Cir(ei,2)) « Cir(ei,3) THEN 
2750  ~ctr_used(1)=ctr_used(1) +1 

2760 END IF 

2770 IF (ati) == (Cir{ci,1)+1) AND (yavi) == (Cir(ei,2)+1) THEN 
2780  ectr_used(i)= ctr_used(i) + 2 

2790 END IF 
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2820 END IF 
2830 IF (xb+1) == (Cir(ei,1)+1) AND (yb+1) == (Cir(ci,2)+1) THEN 
se sor etic vette) ze Richard W Parker jr. writes 
2860 END FOR ci from Florida: 
2870 REMark check for meeting with cirl,2,3 Thanks to you, Dilwyn, Bruce 
2880 chkla = tan_cir(cir4a,ciri) and all the team for a oreat 
2890 chk2a = tan_cir(cir4a,cir2} : g 
2900 chk3a = tan_cir(cir4a,cir3) Magazine. oe 
2910 chksa = (chkla AND chk2a AND chk3a AND NOT(ctr_used(1))) There was some criticism in 
2920 IF (ehkia AND chk2a AND chk3a AND NOT(ctr_used(1))) THEN the last issue, Jul/Aug, on your 
2930 x= xa: y= ya : u ! . 
2940 END IF repeating articles or subject 
2960 oh : seen eter matter | don't agree with that 
c. = Yan Cir Clrad, cir. j ‘ : ee 
2970 chk3b = tancir(cir4b,cir3) at ail I've been QL-ing since 
2980 chksb = (chkib AND chk2b AND chk3b AND NOT(ctr_used(2))) 83 and love the machine, but 
2990 IF (chk1b AND chk2b AND chk3b AND NOT(ctr_used(2))) THEN for the last 10 years I've been 
aa a Ce retired in a lonely OlL-less 
3020 IF (chksa OR chksb) THEN world. 
ao pruargaierstte aes SaarrAOn Most of your repeat articles 
3050 Cir(Cir(0,0),1)=x :Cir(Cir(0,0),2) = y are timely as they remind me 
3060 Cir(Cir(0,0),0)=41 :Cir(Cir(0,0),3)=1/d1 of something | had forgotten or 
oe oa give me a new aspect. | espe- 
ir(0, : f ‘ : 
3090 CIRCLE Cir(cir(0,0),1),Cir(Cir(0,0),2),Cir(Cir(0,0),3) cially like looking at other boot 
3100 FILL 0: INK 7 programs and keep improving 
a mine from the ideas and skill of 
3130 CIRCLE Cir(Cir(0,0),1),Cir(Cir(0,0),2),Cir(Cir(0,0),3) others. , 
3140 END IF seis ah ah aeecta ahs | was forced onto a Windoze 
3150 CURSOR Cir(Cir(0,0),1),Cir(Cir(0,0),2),-5,-5 
3160 PAPER 0: INK 7 :PRINT Cir(0,0) ee ear ar c 
3170 = new_found = new_found+1 the net an t eQ J/ Q60/ QP 
3180 spawn¥(Cir(0,0),1)=ciri(4) discussion Is very interesting. 
3190 spawn§(Cir(0,0),2)=01r2(4) QL Today is really my lifeline to 
3200 spawn%(Cir(0,0),3)=cir3(4) the QL id and t ‘eel 
3210 SORT spawn%(Cir(0,0)) € UL world and to a teeing 
3220  spawn%(Cir(0,0),0)= DATE - startime of community, 
ae END IF 
240 END FOR d12 ; : 
3910 END DEFine fourth circles Frank Gutteridge writes: 
3920 : | have ‘progressed’? from 
3930 DEFine FuNction tan_cir(cirl,cir2 
3940 REMark center to center distance 2X81 through QL through 
3950 e2e = dist_btwn (ciri(1),cir1(2),cir2(1),cir2(2)) THOR | through Mega/STE to 
3960 REMark sum of radii AMD PC with QPC, as well as 
3970 sumrad = ABS(cirl(3) + cir2(3)) IBM Thinkpad with ditto, so it 


3980 IF (ABS(sumrad ~- c2c) « 5E-4) THEN 


3990 REMark 5E-4 just a hunch, there may be a better value ? cannot be said that | have any 


sabe RETurn 1 particular regard for platforms. 
010 ELSE , 

Tob: (HERA | Cte agree with ay ee 
4030 END IF that one can ignore the silly 
4040 END DEFine : REMark FuNetion tan_cir(cirt, cir2) semantics about platforms. 
4050 : 

fc) Ga ates indeed, hat a ie he 
4070 DEFine FuNction dist_btwn(xpt,ypt,x,y) series Of articles In QLioday 
4080 REMark distance between two points xpt,ypt as point of origin for July/August 2001, it is clear 
eae are Maer as that what the authors like is 
4110 TF sqdist » 0 THEN ee not so much the platform as 
4120 dbtw = SQRT(sqdist) the operating system. 

ae eae | have felt for some time that 
4150 END IF QDOS and SMS have reached 
4160 RETurn dbtw a dead end. While they remain 
Hes flees are pleasant to use and do pro- 
4190 END DEFine :REMark FN dist_btwn(xpt,ypt, x,y) vide an outlet for tinkerers, dif 
4200 : ficult on other systems (how 
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many Windows users can 
quickly program to write to 
screen a little window saying 
"Hullo World’?), these systems 
do not provide the things that 
everyone expects today, such 
as Internet, recording to CD, 
etc. It is unlikely that new major 
software will ever come, so 
that users will inevitably find 
themselves in a slowly decli- 
ning market that will in the end 
become irrelevant. 

Readers of “Electronics World’ 
and “The Scientific American’ 
will recently have come across 
articles on Linux, with reasons 
for switching from Windows to 
Linux now that GUls have 
made the latter more approa- 
chable, and the use of Linux 
for the Beowulf project for 
creating super computers out 
of computer farms made up of 
old PCs linked together 
through Ethernet. Apparently 
commercial firms are becoming 
interested in the Beowulf pro- 
ject, which would give a 


4210 DEFine FuNction ang] frm(xf,yf,xt,yt) 


4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 


4510 END DEFine 


4520 


REMark angle in degrees from origin(xf,yf) to (xt,yt) 
REMark —> = 0° or 360°, ® = 90°, «— = 180°, = 270° 
IF dist_btwn(xf,yf,xt,yt) = 0 THEN 


PRINT #0;"same spot!" :PAUSE 20:spolangle = 0 
END IF 
qdx=1 :qdy = 2 


IF ydis«0 : gdy=qdy+2 
IF xdis<0 : qdx=qdx+2 
qprd = qdy*qdx : qsum =qdy+qdxtqprd 
quadA = ((INT(({qsum+1)/3))/2) 
quadB = (quadA-INT(quadA))*5 
quad = quadBiquadA :REMark Trig quadrant I, II, III, or IV 
IF dbtwe>0 THEN 
sinrat = ydis/dbtw 
IF sinrat >» 1 THEN sinrat = 1 
TF sinrat < -1 THEN sinrat = -i 
sangle = DEG(ASIN(sinrat)) 
SELect ON quad 
= 1 :spolangle = sangle 
= 2 :spolangle = 180-sangle 
= 3 :spolangle = 180-sangle 
= 4 :spolangle = 360+sangle 
= REMAINDER : PRINT #0;"quad error arcsine":STOP 
END SELect 
END IF 


angle_from = spolangle 

RETurn angle from 

RETurn quad 

:REMark FN angl]_frm(xf,yf,xt,yt) 


4530 DEFine PROCedure SWAP (ni,n2) 


4540 
4550 
4560 


ni = ni + n2 
n2 = ni - n2 
ni = ni - n2 


4570 END DEFine SWAP 


4580 


. 


4590 DEFine FuNetion CYC (Number%,cyele_length®) 


QL-THESAURUS 


23,000 words divided 
inte 1,000 groups. 


QL-2-PC TRANSFER 


The ultimate file transfer utility. Converts Quill, 
Perfection and, to a lesser extent, Text87 documents 
to RTF, HTM or ASCII formats. Converts HTML files to 
ASCII. Converts QL character set fo Windows or DOS 
codes and vice versa. Removes unwanted spaces, 
line feeds and soft hyphens from OCR read or 
downloaded texts. Extracts the text message from 


emails. 
£10 - €15 
STYLE-CHECK QL-RHYMES 
Check and improve Phonetic and End 
your documents. Leiter searches. 


Geoff Wicks, 28 Ravensdale, Basildon, Essex, SS16 5HU, UK. 


Tel: +44 (0)1268 281 826 


Email: geoffwicks@hotmail.com 


Web: http://members.tripod.co.uk/geoffwicks/justwords.him 
Just Words! - Software for Writers and Word Lovers. 


QL foday 


39 


4600 
4610 
4620 
4630 


REMark cyclic modular with option base = 1 vs option base 0 
REMark Number% is an integer number 

REMark cycle_length% is the Length of the cycle 

RETurn ((Number%-1) MOD cycle_length%)41 


4640 END DEFine CYC 


4650 : 


4660 DEFine FuNction SGN(n)} 


4670 


RETurn (m0) - (n<0} 


4680 END DEFine SGN 


4690 : 


4700 DEFine FuNetion MAX(a,b) 


4710 


RETurn a%(a>b)+b#(b> a)+a*(a=b) 


4720 END DEFine 


4730: 


4740 DEFine FuNction MIN(a,b) 


4750 


RETurn a¥(acb)+b*(b<a)+a*(a=b) 


4760 END DEFine 


4710 : 


4780 DEFine FuNetion curvs4(curvi, curv2, curv3) 


4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 


LOCal gqa,qb,qc,qdet, sum_sq,sum_curv 
sum.sq = curvi¥curvi + curvekcurv2 + curv3*eurv3 
sum_curv = curvi + curv2 + curv3 
qaz=l 
? —(2%sum_curv) 
(2*%sum_sq) - (sum_curv*sum_curv) 
dae = qb¥qb — (4 *qa * qc) 

IF qdet « 1E-6 : qdet = 0 

IF (qe) THEN 

eurv4a = 2*qe/(—qb-SQRT(qdet)) 
eurv4b = 2%qe/(-qb+SQRT(qdet) ) 
ELSE 

eurv4a = (-qb + SQRT(qdet))/(2*qa) 
curv4b = (-qb — SQRT(qdet))}/(2*qa) 
END IF 
RETurn curv4a 
RETurn curv4b 


fou on 


4960 END DEFine 


4970 : 


4980 DEFine PROCedure check_tangency 


4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 


LOCal i,j 
FOR i = 1 TO Cir(0,0) 
FOR j = TnZ(0,0) TO Cir(0,0) 
IF tan_cir(Cir(i),Cir(j)) THEN 
Tné(i,j)=1 : TnZ(j,i) =1 
END IF 
END FOR j 
END FOR i 
™m%(0,0)=Cir(0,0)-1 


5080 END DEFine check_tangency 


5090 : 


5100 DEFine PROCedure options_menu 


5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 


PAPER #0,0 : INK#0, 4 :CLS#0 

PRINT #0;'1 = redraw circles, '; 

PRINT #0;'2 = number circles, 3 = curvature! 

PRINT #0;'4 — list curvatures and centers, 5 - spawn & timing! 
PRINT #0;'6 ~ path of centers, 7 - Zoom, '; 

PRINT #0;'8 - STOP, 9- RUN, 0 - CLS! 

INPUT#O; "Select number and then ENTER", choice 

SELect ON choice 


= 0: CLS 

= 1: redraw_circles 
= 2 : number_centers 
= 3: show_curvatures 
= 4 : CLS# 0 :list_curve_ctrs 
= 5 : CLS: show_spawn 
= 6: etréctr 

= 7 : Zoom_in 

= 8 : CLS# 0 : STOP 

= 9: RUN 

= REMAINDER 
END SELect 


CLS#0 : options_menu 


5320 END DEFine options_menu 


9330 : 


5340 DEFine PROCedure redraw_cireles 
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singular boost to Linux. Linux 
is now offered by IBM, Compac 
and Dell and applications are 
being produced by companies 
such as Oracle and Dell. Indeed 
one can imagine that many 
users running big programs 
and being frustrated by cra- 
shes in Windows and NT might 
well switch to Linux for its 
comparative stability 

Linus Thorvalds and his sup- 
porters did not waste their time 
in endless discussions over 
hardware, nor did they consi- 
der that some particular com- 
puter was to be treated as 
something sacred, the aban- 
donment of which would 
amount to apostasy They 
wrote amongst others for the 
most popular and widespread 
platform which, like it or not, is 
the PC. Many complaints are 
made against this machine, 
particularly with regard to cra- 
shes, but | think that this is 
unfair, because it is Windows/ 
DOS which is the cause of the 
crashes rather than the ma- 
chine itself, as is evidenced by 
the relative reliability of PCs 
running under Linux. 

My feeling for some time now 
has been that imitating Linux, 
SMS should be made Open 
Source under a protective con- 
sortium and rewritten in the 
first instance for PCs. My un- 
derstanding has always been 
that SMS is both UNIX and 
POSIX compatible, so that it 
should then be possible to run 
UNIX software, including Inter- 
net access. It should not be 
very difficult to adapt the 
existing QL/SMS software and 
eventually, | suppose Windows 
software could run under APIs 
(Application Protocol Interfa- 
ces), aS suggested in "Elec- 
tronics World’ for Linux. SMS, 
with its “atomic” approach, Is 
unique and its inherent stability 
should prove even more attrac- 
tive than either UNIX or Linux 


QL foday 


My further feeling is that those 
who at present supply SMS 
and the relevant utilities would 
benefit from such a scheme 
because, rather than operating 
ina technical and operational 
backwater they would come 
into the mainstream and enjoy 
vastly increased demand; even 
their present prices would not 
seem unreasonabie for sales 
under an open system and 
they would of course have an 
advantage over new outside 
competitors because of their 
intimate knowledge of the sys- 
tem. Evidently "SMS" would 
have to be replaced as a 
name, this acronym, as for 
others on the QL scene, such 
as QXL, having been ‘stolen’ 
by the mobile phone industry 
and the Internet. Even Micro- 
soft should be pleased, be- 
cause, with Linux, SMS would 
offer increased competition, 
thus diminishing the risk of 
lawsuits by the monopoly 
authorities. Another point is 
that open source SMS would 
be initially, at any rate, a 
European initiative and thus 
looked on kindly by the Euro- 
pean Union authorities and 
perhaps also by a number of 
users in Europe who would like 
a system closer to home. 
Finally, even if an open source 
project for SMS failed to 
generate interest and further 
development, no one would be 
any worse off than they are at 
present. 

All | can add is that if open 
source SMS came on the 
market, | would immedialy buy 
it. This note was written in T87 
under QPC and SMSQ. 


Editor: Quite an_ interesting 
point. Maybe a good start for 
another themed issue - not 
necessarily as hot as the pre- 
vious one! Readers, do you 
think that open source would 
generate more interest? 
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5350 CLS 

5360 FOR i = 1 TO Cir(0,0) 
5370 SELect ON i 

5380 = 1: INK 242 

9390 = 2: INK 2 

5400 = 3: INK4 


5410 - INDER : INK i 

5420 END SELect 

5430 FILL 1 

5440 CIRCLE Cir(i,1),Cir(i,2),Cir(i,3) 
5450 FILL 0 


5460 END FOR i 

5470 END DEFine redraw_circles 

5480 : 

5490 DEFine PROCedure number_centers 

5500 PAPER 0 : INK 7 

5510 CURSOR —Cir(1,3},0,50,—5: PRINT ' ' 
5520 FOR i= i 0 Cir(0,0) 

5530 CURSOR Cir(i,1),Cir(i,2),-5,-5 : PRINT i 
5540 END FOR i 

5550 END DEFine number_centers 

5560 : 

5570 DEFine PROCedure show_curvatures 

5580 PAPER 0 :INK 7 

5590 CURSOR -Cir(1,3),0,50,-5: PRINT Cir(i,0) 
5600 FOR i = 2 TO numcir 

5610 CURSOR Cir(i,i),Cir(i,2),-5,-5: PAPER 0: INK 7 :PRINT Cir(i,0) 
5620 END FOR i 

5630 END DEFine show_curvatures 

5640 : 

5650 DEFine PROCedure list_curve_ctrs 

5660 REMark analysis of coordinates and curvature 
5670 REMark do they give integer values ? 
5680 PAPER 0: INK 7 :CLS 

5690 FOR i = 1 TO num.cir STEP 20 

5700 FOR j = 0 TO 19 

5710 IF i+j >» numcir :EXIT i 

5720 bx = Cir(i+j,i)*Cir(i+j,0) 

5730 REMark use 2-24 ? or some larger value such as 1E-6? 
5740 IF ABS(bx)< 2-24 : bx = 0 

5750 by = Cir(i+j,2)*Cir(i+j,0) 

5760 IF ABS(by)« 27-24 : by = 0 

5770 PRINT i+j, Cir(i+j,0),bx,by 

5780 END FOR j 

5790 IF numcir - (i+j) >= 20 THEN 

5800 PRINT #0;'touch [spacebar] for next 20! 
5810 ELSE 

5820 PRINT #0;'touch [spacebar] for last ';num_cir — (i+j) 
5830 END IF 

5840 PAUSE :CLS #0 

5850 END FOR i 

5860 END DEFine list_curve_ctrs 

5870 : 

5880 DEFine PROCedure show_spawn 

5890 PAPER 0 : INK 7: CLS 

5900 FOR i = 4 TO num_cir STEP 20 

5910 CLS #0 

5920 FOR j = 0 TO 19 

5930 IF (i+j)>numcir : EXIT j 

5940 PRINT spawn$((i+j),1 T0),'- >', (i+j), 
5950 PRINT 'in ';spawn%(i+j,0);' seconds! 
5960 END FOR j 

5970 IF (i+j) « num_cir THEN 

5980 PRINT #0;'touch [spacebar] for more! 
5990 ELSE 

6000  CLS#0 : options_menu 

6010 END IF 

6020 PAUSE 

6030 END FOR i 

6040 END DEFine show_spawn 

6050 : 

6060 DEFine PROCedure ctr2ctr 

6070 INK 7 

6080 POINT Cir({i,i),Cir(1,2) 

6090 FOR i = 2 TO Cir(0,0) 
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| Convert text files from QL to PC formats 
| and much more ! 


4 HT 
Only £10.00 now * 


Spelling Crib : PD program £ 1.50 +SAE 
or Free if you buy all three programs 


OL” PROGRAM 
wos Rhyming Dictionary 


£ 10.00 


Place your order now to 


QD 98 £45.00 
QD + QBasic £59.00 
QD + Qliberator + QBasic £ 100.00 
Qliberator £50.00 
Master Spy v 3.3 £ 30.00 
QPTR £ 30.00 


Easyptr pt 1 & 2 (together) £ 30.00 
Easyptr pt 3 (C library) £ 14.00 


QMake £15.00 
QMon /JMon £ 22.00 
Basic Linker £19.00 
DISA 3 £31.00 


QMenu 


Qs Autumn Bargains 


We Have: 


3 Full superHermes @ £ 60.00 each 


II 8Mb @ £110.00 each 


2 x Qplane backplanes @ £ 4.00 each 

There may also be a couple of Aurora motherboards available by 

the time of going to press. 

We have been advertising the Epson Stylus 880 colour 

i sale. At the moment these do seem to be 

supply but there may be some available soon so call us if you 
want one. The best colour printer for all QL systems. 

£ 99.50 + shipping 


‘Just Words' by Geoff Wicks 


THESAURUS, STYLE CHECK 


£ 10.00 ea / ANY 2 PROGRAMS £ 18.00 / ALL 3 PROGRAMS E£ 25.00 
(Includes Pointer and non-pointer driven versions} 
(P.E. versions need Hot_rext, WMAN and PTR_GEN or SMSQ/E to run } 
Upgrades from previous versions £ 2.50 + S.A.E. New Manuals £ 1.50 


FiFi 2 

QSup 

QSpread v2.04 
Cueshell 2 
Qload / Qref 
Disk Mate 5 
QPAC 1 

QPAC 2 

QTYP 2 

QLQ 


euppot 


( We are currently out of stock of the SuperBasic Reference Manual 
get one as soon as it is reprinted 


The SBASIC / SuperBASIC Reference Manual 


| The complete definitive guide to BASIC programming in QDOS / SMSQ including | 
| three disks of PD toolkits, example procedures and an electronic index. 
compiled by Rich Mellor, Franz Hermann and Peter Jaeger 


sacar ane eas 


E 14.00 


NEW PROGRAM 
UTILITIES 


£ 18.00 
£ 28.00 
£ 48.00 
£ 15.00 
£ 15.00 
£16.50 
£ 20.00 
£40.00 
£30.00 | 
£28.00 | 


| + postage | 


| |Fountext 94 £ 39.00] 
| [2488 drivers £ 29.00) 
| |Epson ESC/P2 driver 


£ 26.00 


| | Text 87 is the only QDOS | 


/SMSQ wordprocessor | 


| capable of handling the | 


full screen on the Aurora } 


i / QXL/ QPC systems. New | 


drivers are currently 


inkjet 


in short 


{ 


Over 500 | 
pages | | 
£ 40.00 


6; Branch — 


Fe vceling out on a limb ? 

Reach out for O Branch. 
| Suppliers of Quality (DOS/SMSO products % 
\ Hardware and & oftware. 


20 LOCKS HILL, PORTSLADE 
E. SUSSEX. BN41 2LB. UK § 


Hardware 


We have a small stock of second user items. Auroras} 
/ Qubides / Gold Cards / Qplanes / superHermes etc. | 

call us to get details of the items available. These | 
are going fast so call soon. 


Ss 
g QXL II £ 100.00 
ProWesS 7 Recycled superHermes £ 65.00 * 
ProWesS (now free !) £E 1.60 # | Recycled Gold Card £50.00 * 
DATAdesign £20.00 | @ | Recycled Aurora £75.00 * 
Fontutils £28.00 | zy | Qubide £55.00 
File Search £11.00 | * | Qplane £ 25.00 
PFlist £11.00 Aurora cables £3.00 
et Aurorarom adaptor £3.00 
Dilwyn's Fontpack £ Call : ; 
Arfa Braquet £ 8.00 
LINEdesign v 2.16 £22.00 : ; 
PWfile E 17.50 Son of Braquet £ 18.00 
The 'Braquet' £ 16.00 
Paragraph MC plate £ 6.50 


The ProWesS word processor 
Demo version £ 1.50 + postage 
Full Registered version £ 18.00 


* when available. 
14" and 15" monitors for the Aurora - 


Q Branch Programs 


Call. 


f 
n 2.03 available now - 


Please Note our new address 


ersio 


| Ze The Knight Safe 3 £ 35.00 
S M S Q/ E upgrades from previous versions £5.00 
Gold Card / Atari / QXL Version Q- Route v1.08C E 25.00 


Route finding programme 


£ 25.00 


Q - Count 
Pointer driven home accounting 


The Fractal Collection ! 


This is a brand new program which will produce stunning 
animated fractal patterns. It willrun on anything froma | 
Gold Card to the Q40 and will be capable of using the 

power of the colour drivers when they are released. 
Complete with many example files and routines to design | 


Get Cueshell for only £15.00 with any copy of SMSO/E | PN 


or QPC 2 upgrade ! Only £ RE 00 


“QPC 2 v2 FULL VERSION AVAILABLE NOW 
Qubide upgrades to version 2.01 £ 8.00 


Various Atari versions : call for details 


QPC 2 full colour version! | 
| £ 82.00 (£ 67.00 SMSQ/E Owners) || 


Upgrades from QPC 1 £35.00 (rety, 
| Upgrades from QPC 2 v1 £ 30.00 Master disk) 
Special offer ! 


We can accept payment by VISA, Mastercard and Switch. You can also pay by | game <=. 
Eurocheques made out in Sterling or a Sterling cheque drawn on a UK Bank. 
Prices include Post and Packing in Europe. 


6100 LINE TO Cir(i,1),Cir(i,2) 

6110 END FOR i 

6120 END DEFine ctr2ctr 

6130 : 

6140 DEFine PROCedure Zoom_in 

6150 OVER 0 : CLS#0 : redraw_circles 

6160 OVER -1 : INK 242 

6170 CIRCLE x ctr,y_ctr,y_siz/4 

6180 CIRCLE x_ctr,y_ctr,y_siz/5 

6190 PRINT #0;'use arrows to put rings around region of interest! 
6200 PRINT #0;'with SHIFT key for large movement’ 
6210 PRINT #0;'with CONTROL key for small movement' 
6220 PRINT #0;'touch [space bar] when selected! 
6230 REPeat indicate_region 

6240 move_it = CODE(INKEY$(-1)) 

6250 CIRCLE x_ctr,y_ctr,y_siz/4 

6260 CIRCLE x_ctr,y_ctr,y_siz/5 

6270 SELect ON move_it 


6280 = 32 : EXIT indicate_region 

6290 = 192: x.ctr = xetr - y_siz/64 

6300 = 194: xctr = xctr - y_siz/256 
6310 = 196 : x.ctr = x ctr - y_siz/8 
6320 = 200 : x ctr = x.ctr + y_siz/64 

6330 = 202 : x.ctr = x.ctr + y_siz/256 

6340 = 204 : xctr = x.ctr + y_si2/8 

6350 = 208 : y_ctr = y_ctr + y_siz/64 i 
6360 = 210: y_ctr = y_ctr + y_siz/256 | 
6370 = 212 : y_ctr = y_ctr + y_siz/8 
6380 = 216 : y_ctr = y_ctr - y_sia/64 ' 
6390 = 218 : y.ctr = y_ctr - y_siz/256 
6400 = 220: y_ctr = y_ctr - y_siz/8 
6410 = REMAINDER 100 circles | 
6420 END SELect 

6430 CIRCLE x_ctr,y_ctr,y_siz/4 


6440 CIRCLE x_etr,y_ctr,y_sia/5 

6450 END REPeat indicate_region 

6460 CIRCLE x_ctr,y_ctr,y_siz/4 

6470 CIRCLE x_ctr,y_ctr,y_siz/5 

6480 OVER 0 : CLS #0 

6490 PRINT #0;' negative numbers zoom out to cover larger area! 
6500 PRINT #0;' positive numbers zoom in to enlarge detaiis' 
6510 PRINT #0;' enter 0 to restore to original size! 

6520 INPUT #0,'Zoom factor ? ',zoof 

6530 SELect ON SGN(zoof) 


6540 = 1: y_sig = y_siz / ABS(zoof): 

6550 = -1: y.siz = y_siz * ABS(zoof): 

6560 =0: y.sizg = ysize: xctr=0: yetr=0 
6570 = REMAINDER 


6580 END SELect 

6590 SCALE y_siz, -.75 * y_sig + xctr, -.5 * y_siz + y_ctr :CLS 
6600 redraw_circles : CLS# 0 : options_menu 

pees oe DERE <covasee : section of 100, numbered 
6630 REMark end of listing CM7k3b_bas i ee Soe 


Finally, a few screenshots to give you an idea 
how the results will look like: 


[ 
| 
t 
| 
H 
: 
i 


Be 


P section of 100. curvatures 


Rubber emails 


Tony Firshman 


| have just gone through an emailshot experience 
| would like to forget. 

Before the QL 2000 bash last year we snailshot 
some 2000 people. We thought it about time that 
the QL mailing list was weeded down to current 
QL people. We were extremely disappointed at 
the small number of postcards returned. How- 
ever we asked for email addresses, and got a 
considerable number. | also had quite a few on 
my own database. 

Good | thought - we now have 440 QLers with 
emails - this will ensure we can afford to tell 
more people about QL shows etc. 

What a foolish idea. 

| sent a test email, and immediately got some 50 
bounced emails, and very often ISP autorespon- 


Spam or information? 


Jochen Merz 


Well, everybody using an email account seems 
to suffer more and more from this. It is getting 
more and more annyoing. 

However, when Tony Firshman sent out informa- 
tion regarding the forthcoming QL shows he told 
me he got a very rude reply. Although | think that 
nobody who gave us his/her email addresss, for 
example on the postcard last year wants to be 
spammed it is pretty clear that information 
regarding QL shows together with information 
regarding the dealers attendance, addressed to 
the group of people which is interested in QL 
matters (and not to 10,000,000 "bought" email 
adresses, hoping that 0.0001% will we interested). 


lf you don't like that, tell us, and you will be 
removed. You are speaking to real persons you 
know, not anonymous spammers. 

And now for a bit of fun! Although | just asked 
you to reply to us, don't do it to real spam. | 
found some very funny texts while searching for 
spam matters, here is an extract of what the 
phrases in spam email really mean. If you want 
more, go to 

http://www.lodz.pdi.net/~ eristic/ junkmail/ 


It is called 
Spamfordian != English 


an abbreviated dictionary of Spamspeak 
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ders ‘forget’ to say what address failed. This is 
worse than it sounds, because a lot of ISPs try 
dozens of times, and send boring reports of their 
attempts. 

OK - so! remove these 80 (less a handful which 
| got updates). 

| then send the main mailing for three forth- 
coming shows (Byfleet, S Germany and Paris). 

| then get ONE HUNDRED bounced emails! 

| found later that a small number of these 
addresses were OK - but were bounced anyway. 
.. SO the QL mailing list is now down to a touch 
over 300. 

In order to keep me sane, would people who 
have received the emailshot, please keep me up 
to date with their email address. 

Also anyone who did not receive the circular and 
wants it, please let me know their email address. 
tony@firshman.demon.co.uk 

Emailing is not all it is cracked up to be. 


absolutely guaranteed 

(i) ..or your money back; but first you'll have to 
find us (see From: Received) 

(2) ..fo make us a stash, if we can get away with it. 


free 
(1) Mine 
(2) Free to me 


From: 
From anywhere but: 
usage: standard smtp header field 


legitimate business 
scam, fraud; shady, dubious or illegal dealings 


make 
lose 
usage: "make money fast” 


May | have your permission to send you... 
see if | care. 


only 
First (of a sequence) 
usage: "this is the only mail you will receive’ 


Received: 

Forcefully shoved up the communications pipes 
of: «victine 

usage: standard smtp header field 


remove 
Add 
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Sinclair QL The Download Page 


by Giorgio Garabello 


Hello, and welcome to "Sinclair 
QL, the Download Page’, the 
biggest world wide web site 
built for downloading of pro- 
grams written for the Sinclair 
QL Personal Computer: 
www.sinclair—qLit 


The purpose of our initiative is 
to make available to any QL 
user, in a simple and immediate 
manner, all the software he 
might need, thus being a 
reference for every QL user: 
we want to help QL fans to 
keep in touch with the whole 
QL community and avoid losing 
ourselves in a sea of anony- 
mous computers. 

The site's database consists of 
more than 80 MBytes of pro- 
grams, files and documents, 
and keeps most of the free- 
ware and public domain resour- 
ces for this platform, and is 
constantly growing. 

Every file can be downloaded 
without limitations. Programs 
and documents are organized 
by areas of interest. Select the 
category you want simply by 
clicking on the category name 
with your mouse: you will see 
the list of the files available for 
downloading, along with a de- 
scription of the files, their di- 
mensions and the creation date 
of the software. 

You can also upload new soft- 
ware: just ask about this. The 
only limitations are: 

1. the software to be uploaded 
must be somehow related to 
the Sinclair QL 

2. the software to be uploaded 
must not be commercial or 
illegal software (demo versions 
of commercial software are al- 
lowed to be uploaded) 

3. upload of pornographic, 
offensive or somehow illegal 
material is strictly forbidden 
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Only the site mantainers can 
decide if something that has 
been uploaded will be inserted 
into the site. 


not a commercial activity, 


Home Seach Fores Hetoy Greweh fubrern Ma Ee 


IMPORTANT - 
DISCLAIMER 


Site mantainers are NOT re- 
sponsible for either the con- 
tents of the downloaded files, 
nor the use you will make of it, 
whether legal or illegal. This is 


ins Addess [2 tatp:2/ewen sinclainal t/dowe/settor_en him 


2) Done. 


To ask about software upload- 
ing, send an e-mail message to 
the address 
webmaster@sinclair-qL.it 
attaching, along with the soft- 
ware, any kind of related docu- 
mentation and (if available) 
source code and examples. 


Categories 


Terminal 


Sinclair QL 
The Download Page 


Hello, and welcome into “Sinclair QL, the Download Page", the biggest world wide web site built for 
downloading of programs written for the Sinclair OL Personal Computer. 


The purpose of our initiative is to make available to any QL user, in a simple and immediate manner, all the 
software he might need, thus being a reference for every QL user: we want to. help OL fans to keep in touch 
with the whole QL community and avoid losing ourselves in a sea of anonymous computers. 


The site's database consists of more than 80 MBytes of programs, files and documents, and keeps the most of 

all the freeware and public domain resources for this platform, and is constantly growing: Every file.can be 

downloaded without limitations. Programs and documents are organized for areas of interest, Select the 

category vou want simoly by clicking on the category name with vour mouse: vou will see the list ofthe files | 


not-for-profit initiative: access 
to the site and software down- 
loading is free to anyone, and 
nobody is authorised to ask for 
money for any reason. 

In the category listing below, 
(active) means that this section 
was active at the time of 
writing. 


Description 


Terminal emulation programs for the most 


frequently used standard (active) 


Compressors 


BBS managing 
FAX managing 


Compression / decompression programs 
(active) 

BBS managing programs for QL (active) 
Useful programs for receiving, sending 


and printing FAX sheets (active) 


Printer managing 


Programs to configure and manage the 


most known printers (active) 


Off-line readers 


Programs to read BBS messageboard 


while being off-line (active) 


Editors 
XCHANGE and utilities 


Program editors for the Sinclair QL {active} 
The Xchange package, accessories and 


related utilities (active) 


Games 
Graphic 


QL Games (active) 
Graphic programs and viewers (active) 
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Categories 


Graphic 

Graphic 

Screensaver 
Benchmark 

Utility 

Utility - Floppy 

Utility - Hard disk 
Utility - SuperBASIC 
Utility - Sistema 

Utility - C68 

Utility - Zyxel 

Utility - Text 87 

Utility - QXL 

Utility - Text conversion 
Extension 

Demo programs 
Languages - C68 
Languages - ANSI Forth 
Languages - APL 
Languages - Prolog 
Languages - Assembler 
Languages - Intercal 
Languages - RexX 
Languages - Perl 


Languages - Scheme Lisp 


Languages - C (old) 
Languages - others 
Emulators 

Documentation 
Documentation - Prowess 


Magazine - Qitaly magazine 


Magazine - QHJ 
Magazine - QL magazine 
Clip art 

BBS listing 

Other platf. - Emulators 
Other plattf. - Utility 


Description 


Format conversion 

format conversion program (active) 

screen saving programs for the Sinclair QL (active) 
Benchmark programs (active) 

Various utilities {active} 

Utilities/data recovery prorams for floppy disk 
Utilities/data recovery prorams for hard disk 
SuperBASIC programming utilities 

Utilities to better take advantage of the QDOS capabilities 
Support programs for the C68 compiler (active) 

Zyxel modems support utilities 

Utilities for the word processor Text 87 

Utilities for the QXL board 

Text format conversion programs 

Extension to the QL operating system 

Limited version of commercial programs (active) 

The C68 compiler: binaries, source and documentation 
The ANSI Forth compiler 

The APL languages for QL active 

The Prolog programming language for QL (active) 
680x0 The Assembler language for the 680x0 family active 
The Intercal language for the QL (active) 

The Regina ReXX language for the QL (active) 

The Perl languages for the QL (active) 

The Scheme Lisp languages for the QL 

Others C compilers (old programs) 

Others languages 

Emulation program for the QL 

Technical documentation, manuals and examples 
Prowess and Proforma documentation 

The whole collection of the Qitaly Magazine (closed) (active) 
The whole collection of the QL Hacker Journal (active) 
The whole collection of the QL Magazine 


Clip art collection and images, for use as wallpapers or the like (active) 


BBS program listing 
QL emulation programs under other platforms 
Utility programs for the QL under other platforms 


Other platf. - Cross comp. 


QL Compilers for other platforms (active) 


This site is owned by a free group of QL italian users. 


HP Printers & QL’s (Part 2) 


by Peter Fox 


| have noticed that | did not use the shift in 
defining the last character in Underline Off in Part 
1 of my article. The decimal equivalents are cor- 
rect but not the character itself which should 
have been ™. 

Another thing that can be done with the 
‘printer_dat’ file is to insert translates to produce 
both bold and underlining in Abacus. 
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The way this is done is to choose an obscure 
character from the character set to start bold 
and a second to stop bold and then repeat the 
process for underlining characters. My obscure 
characters are «CNTR to «4° for Bold On and 
Off and Underline On and Off respectively. 


Bold On TStHESCt4 (tet ter grprBt 
145,27,40,115,51,66 
Bold Off TETHIESCH4 (fet t+ Oe Bt 


146,27,40,115,48, 66 
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PEI4IESC TER TAtE tL eID! 
147,27, 38, 100,49,68 


Underline On 


TR ELTESC 46 Ztlatqi4i@i 
148,27, 38,100,64 


Underline Off 


With these translates within your printer_dat, 
insertion of the correct character or characters 
will produce bold or underlined characters 
subject to one proviso: All of the characters in 
these translates are non-printing characters so 
that, especially in Abacus, your formatting will go 
astray by a character or two. 


In my previous article, | mentioned fixed and 
floating underlining. Floating underlining does not 
underline spaces but fixed does. To give two 
examples: 


The quick brown fox jumped over the stile 
The quick brown fox jumped over the stile 


The first of these examples is a fixed underline 
and the second is a floating underline. Whilst 
Underline Off is the same in every case the 
Underline On changes: 


Single Fixed TESC'+'&'+ tate! 1t4iB! 
Double Fixed TESC'+'& +d t4!2tarBt 
Single Floating  ‘'ESC'+'&'4+'d'+'3'4'BI 
Double Floating ‘ESC'+'&'+'d'+t4t4'B! 


| shall not give the decimal equivalents of the 
whole sequence, simply to say that: 


decimal equivalent of ASCII ‘1’ 49 
decimal equivalent of ASCII '2’ 50 
decimal equivalent of ASCII '3’ 51 
decimal equivalent of ASCII ’4’ 52 


so that substitution of the appropriate ‘cigit’ will 
achieve the desired effect. 


Most HP printers have a carriage width limited to 
A4 portrait which amounts to 210mm. Unfortu- 
nately DL envelopes (the common variety are 
220mm wide which means that the only way 
they can go through an HP printer is in landscape 
mode. This has the effect of slowing up the 
printer and restricting the fonts available. This will 
depend on the actual printer itself. 


Portrait Mode TESCh+ P&E Lt et Otetge 
27, 38,108,48, 79 

Landscape Mode 'ESC'+'&'+'1'+'i'+'0! 
27, 38,108,49,79 


Therefore if you wanted to reset the printer and 
then set it into Landscape mode, you would need 
to combine the commands for these instructions 
as follows: 


Reset + Landscape 
TESC'+ lela larL tery target 
27,101, 38,108,49, 79 


In my previous article, | mentioned that combining 
printer commands can be done provided that 
only the last character in the command is upper 
case. The printer will ignore any characters after 
an upper case character. 


In my next part | will tackle the subject of sub- 
and superscripts 


Editor: On the transfer from Text87 to Calamus, 
this DTP program, the £ character in the last 
sentence of the previous article got lost. Sorry 
about that. 


BYFLEET 2001 


Dilwyn Jones 


Quanta held its autumn work- 
shop in the Byfleet village hall 
on Sunday 23rd September 
This started slowly but be- 
came quite a well attended 
show in the end, leading Geoff 
Wicks for example to declare 
that he'd had an excellent 
day's trading there. Geoff him- 
self had launched a new 
product there, QL-Rhymes, a 
Rhyming Dictionary program. 


48 


This program will be useful for 
budding poets and anyone 
needing to use Rhymes. 

Thankfully, it was a well atten- 
ded show, possibly because 
the Byfleet show was post- 
poned last year due to the 
staging of the QL 2000 event, 
in order to promote it. However 
Byfleet returned this year in 
fighting form. And all the major 
QL traders were there as usual. 
Entrance was via the side door 
from the car park, and first on 
entering the door to the right 
was Q-Celt Computing and 


Darren Branagh. Darren had his 
usual collection of CD's and 
Disks, QL 2nd User Hardware 
and Software, Cables and Peri- 
pherals. He launched some 
products and some updates - 
namely the ZeXcel Spectrum 
Emulator CD-ROM for the QL. 
which debuted at last depite a 
lot of production problems! In 
fact, this proved to be his best 
seller at the show - he sold 
out of all his stock and had to 
promise to send on additional 
CD's to some customers! Also 
debuting at the show was the 
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OL Cash Jrader v3.7 __ 25 
A well established accounts package for the small to 
medium sized business, including automatic 
generation of profit & loss account, balance sheet, VAT 
returns, reports and analysis for audit trails and 
management decisions. Previously soid for over £100.* 


| OL Payroll v3.5 — ES 


Manage a payroll for a small to medium sized 
business. Handles up to 99 employees easily, 
producing P45s and P60s as well as the payslips on a 


monthly or weekly basis. Calculates tax and national 
insurance and is easy to update to take account of the 
current tax year rules. 


Q-Help v1.05 


TRK2, 

Can be used to add help to your own programs - 
simply produce ASCII text for each help page, add an 
index and Q-Help automatically cross-references and 
displays the links. 
The PD tooikits referred to are available for £2. 
Q-Index: The Su iC index supplied with the 

ce Manual - enter a topic such as ‘screen 
resolution’ and find out the commands which relate. 
for further info on the chosen 


O10. 


scape printouts of Easel/Qspread 

spreadsheets and output from QL Genealogist, as well 
as any other standard text file. You can specify the 
fonts to be used on the page. Works with all EPSON 
compatible printers, from 9 pin dot matrix to laser 
rinters. A most useful utility by Dilwyn Jones - you 
w it must be easy to use. 
ProForma ESC-P2. Drivers v1.03 cB 
New improved colour and monochrome printer 
drivers, providing up to 720dpi for all programs 
written for use with ProWesS, such as LineDesign and 
Paragraph. Works on all Epson inkjet printers which 
pated binary mode compression (740, 850 and 900 

els at least}. 1440 dpi to follow. 

QL Genealogist v3.26 
Genealogy For Windows £50 


Store your family tree for posterity. Add individuals 


: wR ats 
image D v1.03 Fe eee aS ee. 
Produce graphical representations of 3D objects - view oe sad 
them as wireframe, hidden line and shaded. vee bee 
Perspective and magnification can be controlled and GARY, eas 
views can be to file for subsequent printing. sy reess 
Multiple objects can be defined and positioned relative 3 oe = 
to each other Simple to use yet produces excellent 2B Sm oR 
results. oN Ss ea Be ‘ 
syremmmemers “Bo 2 tas 
SBASIC ‘SuperBASIC Reference Manual {40 egy : 3 am ohn 
E 3 z SReRS aj 3 
Updates £6 cach £10 for? (Canent Version Rei 3) gee Fees 5 
Have you ever tried to write a program, but been lest asto SP ¢o S's_ 2 
the wees of performing a certain action? This Reference 4 5 EH § ae 
Manual provides you with a full description and examples of 5 3 =e 
how to use all of the keywords found on each of the bee 2 EBS 295. 
different QLs, plus SMSQ/e, Toolkit If and many different 8 5“ 2 5.40 
public domain toolkits, Details of any possible problems are - 43 EEE 


provided, together with descriptions of how to use the 
device drivers and how to ensure that your programs are 
compatible across the range of QL platforms. 

This book is ideal for all QL users and is kept up to date with | 
regular updates. : 
Orders are currently being taken for the next print run of j 
this popular tome. 

(Note: Price for the book does not include post & packing). 


QL Cosmos v2.04 

ered what the stars in 
years ago? Or, maybe you want to learn the constellations 
and names of what you see in the sky. This is the program 
for you - generates pictures of the stars and planets for any 
given place or time and provides details on these objects. 
testes Halley's Comet, the Moon and the Solar System 
planets. 


Q-Route v2.06 


as 
£5 


Stone Raider Il v2.00 £5 


Hoverzone v4.2 


£5 
cS 
£10 


QuizMaster || v2.07: 
Flig! itdeck v1.05 


Open Golf v5.20 
Deathstrike v1.5 


tring 
use less 


Upgrade from v1.xx 


The latest version of this popular route program. 
Find the quickest route or the shortest route between any 


detail, Areas 
d, NW England, 


yshire, London area 


ps of various 


created b 
ry wi 


two places, using roads. A wide range of maps is available 
for this program (see elsewhere in this advert}. The pro: 
is easy and quick to use. You can even add your own places 


and roads to the maps to include local detail. 

Flashback SE v2 03 (Upgrade only) £S 
The ultimate database - extremely fast and flexible, 
easy to use, updated to cope with the latest versions of the 
QL operating system and still maintained. A report module is 
included to allow you te format tad in any way including 
mail-merge. Unfortunately only available as an upgrade from 


the original version (original still available from Sector 
Software). 


Return To Eden v3.08 

‘Nemesis MKIt v2.03 

The Prawnev2.01 

Hotrorday v3.1 

West v2.00 

The Lost Kingdom of Zkul v2.01 


- the 


or Q-Route. Ma 


ps 
areas of Britain have been 


them out of Big Britain Map 


. wie & Derb 


and can contain more 


Scotland, NE En 


S&W Yorkshire, 
and South En: 


red: 
Latest version of Q-Route is recommended. 


The latest mai 


memo 


cove: 


£2 
£5 
£5 
£2 
£2 


with details of their parents and children, watch all of A wealth of QL adventures - mainly text only. 

those links build up into a formal family tree layout. Save the Galaxy from the ambitions of the evil dictator 

Text files and pictures may also be linked to Nemesis. 

individuals as weil as notes and events, making this Battle against werewolves and dracula look-alikes on a 

the perfect way to preserve the history of your family. Hammer Horror set in the comical ieabiaiias A 

QL version now supports Fileinfo If and QMenu as well Take the part of a prawn with a hangover, lost in a strange 

as allowing you to link both male and female trees. land in the hilarious Prawn. 

Sample tree of the Royal family since 1066 included. Solve a bank- by fighting the bad guys and 

PC version is event driven - enter the details as they collecting the loot in real-time old West. 

Or documents and it generates the tree from Battle countless dwarves in the atmospheric Lost Kingdom 
Se, 


E, data and GEDCOM can be transferred to the of Zkul. 
PC version. Upgrade to latest PC version (v5.21) for £8 Return to Eden is a massive adventure over 3 disks with 
Both programs easy to use and complete with a step by colourful graphics - control 3 characters in their quest to 
tutorial. find the missing Prince. 
** OL USERS upgrade to PC version for £25 ONLY ** All six adventures are available together for only £25. 


Dp. I ua A: For the gaming enthusiast - D-Day is a classic table top wargame for one or 
2 Dey NNT oo 118 two players - you control either the Allies or the Axis forces during WWIL 
Grey WolT V1.8 CS With the ability to define your own army set ups and a choice of 4 different 
War in The East MKilvi 


feu scenarios, this should keep you entertained for a while. 
(Upgrade Oniy} £5 


Grey Woif is a graphical simulation of a submarine - can you sink the enemy 
shipping whilst avoiding their planes and destroyers?? 


RWAP Software, 7 Common Road, 
Kinsley, Pontefract, West Yorkshire 
WF9 SJR 


TEL: 01977 614299 
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lreland Map v1.00 
Beigium Map vt.01 
| Catalonia Map v1.03 


Britain.map v1.14 


Cheques in £sterling 
payable to 'R.Mellor' 


—- 
mde 
* Also known as Trading Accounts 
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Phoebus Dokos _ Interactice 
Fantasy collection, which con- 
tains several hundred Infocom 
Zip adventures ported to the 
QL from the PC world. If you 
are a text adventure enthu- 
siast, this is the one for you. A 
contender for the most expen- 
sive QL emulator ever made 
an appearance on the Q-Celt 
stand, courtesy of 
Ken Brickwood's 
new Apple iBook 
running Daniele 
Terdina’s  QemuLator 
Lite and displaying 
its video output on a 
Hitachi AV-laptop (the 
world’s first — truly 
portable VCR 
recorder with built in & 
TFT LCD screen, § 
circa 1989 vintage) ~ 
if you know of a @ 
more expensive QL — 
system let us know, 
the combined value 
today of these two 
items would be about £4,500 
we guessed! 

Now Darren, | know you are 
Irish, but the shade of green on 
that sweatshirt was a bit much. 
Even your Irish girlfriend San- 
dra said the same thing. 
Alongside Darren | launched 
my new PD software library 
service. Phil Jordan of The 
Library has not had enough 
time on his hands to be able to 
run The Library to his satisfac- 
tion, so | am starting my own 
service up to copy freeware 
QL software on disk for QLers 
not lucky enough to have inter- 
net access to get hold of the 
wide range of free QL sofft- 
ware available out there. The 
launch was a bit of a mess, 
unfortunately, as problems with 
the laptop computer | was 
using at the show meant | was 
unable to copy or print any- 
thing until late afternoon. Still 
lesson learned. 

Quanta’s stand was in front of 
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the stage, just below the bring 
and buy stall, which was well 
stocked with a variety of older 
and harder to obtain items. 
Most of the Quanta officials 
were there, including the 
newest committee member 


John Gilpin, who was tucked 
away between Pandora cased 
QLs working on Quanta library 


LC 


material. There was a lot of 
interest in the Quanta library 
CD, and they also took a copy 
of the QL Emulators CD-ROM 
to see if there was enough 
interest among Quanta mem- 
bers to supply the material on 
this CD to members. John's 
wife Sarah was also canvas- 
sing opinion on whether the 
Quanta AGM to be held in 


Manchester next April should 
be a one or two day event - 
one suggestion was that it be 
a one and a half day event in 
effect, giving the traders a 
chance to drive there saturday 
morning, a half day workshop 
in the afternoon, stay overnight 
and then a full meeting and 
AGM on the Sunday - QL2002 
perhaps? If you 
have views on this, 
let John and Sarah 
Gilpin know, as 
they are organis- 
ing the event. 
Dave Walker (of 
C68 compiler 
fame) had his own 
table there and 
impressed every- 
one with his ultra 
light ultra thin Fu- 
jitsu-Siemens._ Life- 
book laptop, then 
proceeded to spoil 
it all by lifting up a 
huge bag contain- 
ing plug in CD drives, floppy 
drives, Jazz drive (| think) etc 
etc. | thought the whole idea of 
having a lightweight laptop 
was not to have to carry all 
these plug in bits and pieces, 
Dave? Reminds me of my extra 
wide QL back in the 1980s 
with plug in bits hanging off 
every side of it! 

Tony Firshman’s stand was a 
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hive of activity as usual, al 
though most of the activity 
seemed to be coming from his 
son Ben's computer alongside. 
Not quite sure what Ben was 
up to but the level of activity 
seemed to imply a great future 
in computers for this lad (hope- 
fully on QLs!), Whilst Tony had 
no major new products on 
sale, he did hint at the possibill- 
ty of a new version of the Qu- 
bide IDE interface for the QL. 
Although not fully confirmed at 
the moment, he was in discus- 
sion with Qubide designer 
Nasta concerning the specifi- 
cations and so on, ideas 
included the possibility of an 
on-board Compact Flash or 
other flash memory card slot, a 
connector for 2.5 inch IDE hard 
drive cables and a redesigned, 
lower noise printed circuit 
board. The one thing he 
seemed to be struggling with 
was a name for the new board, 
although one name suggested 


was QLIDE (@L IDE) This 
product is in its infancy and 
may well change before 


launch. Nasta has recently also 
mooted the idea of moving 
away from the Coldfire chip for 
his eagerly awaited Goldfire 
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project, in favour of the 
680x0 series of chips, 
now that he has located 
a cheaper source of 
these, so he seems to 
be regaining interest in 
the Goldfire —_ card, 
although by his own 
admission he will have to 
reconsider the name if 
he moves away from the 
Coldfire chips to, say a 
68060 chip. 


Roy Wood had the QBranch 
stand packed with all the usual 


QBranch goodies. He had 
cased Aurora systems on sale 
for about £180.00 - some of 
these had brand new desktop 
cases and had quite reasona- 
ble capacities of hard drives on 
them and so on and looked 
like quite a bargain as he was 
selling them off to clear Like 
many, Roy had been struggling 
with cabling for connecting 
two computers with Sernet. 
Author of Sernet Bernd Rein- 
hardt happened to be at the 
workshop and was forced to 
look for a needle in a haystack 
to find a suitable serial cable to 
connect two computers toge- 
ther to prove to Roy it was 
possible. Eventually, Tony Firsh- 
man came to the rescue and 
made a cable, from there on it 
didn't take Bernd long to con- 
vince Roy. 

Jochen Merz is usually too 
busy copying upgrade disks at 


these shows to get near to for 
conversation. His stand inclu- 
ded back issues of QL Today, 
printer ink, cheap floppy disks 
and very cheap CDRs, along 
with the usual JMS software. 
Although not quite finished, | 
realised by the end of the 
afternoon he had this whole 
issue (except for this article) of 
QL Today ready on his laptop 
at the show. 

Bill Richardson seemed to 
have a quieter than usual day 
at the show. Although he had 
plenty of Z88 and Spectrum 
products at the show, they did 
not seem to be selling that 
well. Bill is still interested in 
obtaining Spectrum interfaces 
etc for an overseas client — if 
you know of a pile of 
Spectrum products available 
for sale, Bill may be interested 
in hearing from you. 

Sadly at this workshop, there 
was none of the usual talks 
and lectures which are a 
normal feature of Quanta 
workshops. Perhaps not too 
unexpected, although it was 
far from being a quiet show, it 
was steady most of the day 
rather than extremely busy and 
there was little by way of 
major new product announce- 
ments. An enjoyable workshop, 
if not a spectacular one. 


HELP! 


QL Today needs a reviewer | 
for the Geoff Wicks QL- 
Rhymes program. A specia- | 
lised program like — this| 
needs someone who knows 
what is required of a pro-| 
gram like this and not afraid | 
to say if it doesn't do what 
it should! If you think you 
can help, contact the editors. 
You won't get paid, but you 
iwill get to keep the pro-| 
gram! 
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saw PeINTS erreurs - 


lt has been a couple of months 
of experimentation here at Q 
Branch Towers. | became very 
interested in the problems with 
the newer versions of SMSQ/E 
for the Q 40 and the patch for 
the older version and Pro- 
Wess. In the last issue Jerome 
Grimbert says that the patch 
works fine on his system but | 
find ProWesS unstable with it 
running. In my last column | 
mentioned the new version of 
SMSQ/E for the Q 40 and the 
fact that ProWesS will not run 
under that either | also men- 
tioned the fact that, if you want 
to run ProWesS and use the 
patch program you cannot turn 
the COPYBACK CACHE on 
until after ProWesS is loaded. 
After | sent the copy for that 
column to Jochen for publi- 
cation | found out, purely by a 
chance mention of — the 
COPYBACK extensions, _ that 
the new version of SMSQ/E 
for the Q 40 (v2.99) has the 
COPYBACK CACHE turned on. 
There would seem to be no 
way to turn this off in this 
version. This may account for 
some of the problems | have 
been having with v 2.99 of 
SMSQ/E for the Q40 


By co-incidence it also means 
that if | had had the COPY- 
BACK extensions running in 
the Q 40 when | ran the test 
that so irked Peter Graf | would 
probably have had problems 
running LINEdesign at all so 
the whole thing would have 
been pointless. 

| have found that turning the 
cache on after loading Pro- 
WesS does speed things up a 
bit but it also makes LINE- 
design lock up when printing. 
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Joachim van der Auwera 
replied to my emails about this 
and said that ProWesS would 
have problems with these 
caches so it would seem that 
the problem would rest there. | 
will keep my ear to the ground 
on this. As | have said before | 
rely on ProWesS for a large 
amount of the work | do on the 
Q 40 so | am stuck using an 
earlier version until there is a 
way around it. Rest assured | 
will keep you all informed. 


And is There a Manual 
With This Wheel Thingie? 


Wolfgang Lenerz asked, in his 
comments in the ‘big debate’, 
why | had written the QPAC 2 
series. The truth is that this 
was something | wrote some 
years ago and gave away free 
with copies of QPAC 2. It was 
a selfish move really because | 
often sold the program to 
customers who then could not 
get it working. | have often 
thought that the way the suite 
was presented was its fatal 
flaw and that it should have 
had a standard BOOT file 
loading and running its main 
features with the tutorial on a 
button. That was why | wrote 
the manual extension myself 
and gave away a boot file on a 
disk with it. Jochen asked me if 
he could publish it in the maga- 
zine and | was happy for him to 
do so. 

lt was only after | started to 
give the tutorial away with 
QPAC 2 that other people 
came up to me and said that 
they had never got QPAC 2 
working and had given up. | let 
them have copies of the 
tutorial and they soon had 


working versions of QPAC 2 as 
well The problem with some 
software Is that it is so hard for 
the user to get started. There 
is a tendency to think ‘this is 
not for me’, throw it into the 
box and forget about it. 

This has meant that a lot of 
people bought QPAC 2, in my 
view the single most indispen- 
sable program for all QDOS/ 
SMSQ systems, and either ne- 
ver used it or used only part of 
it without gaining its full benefit. 
When a program is finished the 
hardest thing to do is to write 
the manual. The QPAC 2 ma- 
nual never really showed it's 
real potential. | hope that my 
contribution cleared some of 
the fog from the windows. 


One of Life’s Little Joys 

One of the things which has 
kept me using and supporting 
the QL, even though it is really 
financially unviable, has been 
the number of really enjoyable 
people | have been introduced 
to through it. Most of these 
Started out as customers and 
have now become firm friends. 
A long time ago, before Q 
Branch ever existed, | wrote 
something in Quanta about 
portable QLs. In those days 
the cost of a small flat screen 
was really high and the tech- 
nology was not really there to 
make such a thing possible but 
| got a reply from Roger God- 
ley which really spiked my 
interest. Roger is an English- 
man who lives in Spain and is a 
long time QL tinkerer and user 
He sent me pictures of QLs he 
had gutted and rebuilt which 
were very interesting indeed. 
Since then Roger has visited 
me at the Portslade Q Branch 
HQ on many occasions. He 
usually comes over once a 
year in the summer and 
spends the summer months 
travelling around with his two 
sons. He visits other QL Users 
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and, usually, manages to attend 
one of our local user group 
meetings. 

He always has something to 
show me and has a pretty 
unique view of things. The con- 
versations usually goes along 
the lines of "You know so and 
so program... well | liked that 
but | did not like the way it did 
this so | patched it.’ He has a 
whole library of patched and 
doctored programs all of which 
do strange and_ interesting 
things. Not only this but he has 
a collection of hybrid QLs 
which are all self contained 
units. This summer he brought 
two QLs welded together with 
zip drives and hard drives built 
into them. | have been trying to 
get him to write a bit about his 
activities for the magazine and 
| hope that he takes us up on 
the offer. 

Roger is one of those people 
for whom many of the argu- 
ments about native hardware 
are very pertinent. He has a 
deep understanding of the 
code at the heart of Motorola 
68x chips and the machine 
code on which QDOS runs. On 
his last visit he bought 
Jochen's QDOS_ Reference 
manual, a book about which he 
had not heard before. For 
those of you who are in a 
similar position it is a complete 
and up to date guide to all of 
the keywords, calls and traps 
in both QDOS and SMSQ/E - 
an indispensable bible — for 
machine code programmers. 

| have often asked Roger to 
release some of his stuff to the 
public either commercially or in 
the libraries. Maybe this will 
give him the confidence to do 
SO. 


Can the Black Box be 


Recovered? 

While we are on the theme of 
native hardware Q_ Branch 
passed a milestone this month 
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when we sold our last QL 
Keyboard membrane. | believe 
that Bill Richardson does not 
have any left now and that TF 
Services have stopped selling 
them, keeping the few that 
remain for QLs that come in for 
repalr. 


This is a solemn state of affairs 
because there is very little 
hope of any more being manu- 
factured now and the little 
black boxes which are still in 
use, therefore, have a limited 
life unless a superHermes is 
fitted. This is sad in many ways 
because, whatever opinion you 
may have of the original QL, it 
is the reason that we are all 
here. | have one very good 
specimen at the Q Branch HQ 
which still gets used when | 
have to format DD disks and a 
couple of others which | am in 
process of fixing. | have to 
treat the membranes with extra 
care now. 

When Tony Firshman looked 
into the possibility of getting 
more made the minimum quan- 
tity that the company would 
consider was high enough to 
make the project unfeasible. 
When you think that there has 
to be a template made and a 
machine specially set up to run 
the membranes off you can 
see how high the cost would 
be. If anyone out there knows 
of a small company that might 
be able to make these in low 
quantities do let us know - a 
project for Quanta maybe? 


DD Ho Hum 

Another item on the endan- 
gered list is the DD disk which 
is now very hard to find and 
highly priced in relation to its 
higher capacity brother, the HD 
disk, when you can get hold of 
them. QL Today has a small 
horde of these for the cover 
disks but, when they are ex- 
hausted, as they will be one 


day, we may have to resort to 
HD disks for the covers. There 
are still people who only have 
DD drives and they are not 
able to access HD disks. Not 
only that but, as many of you 
know, the older inferfaces such 
as the Trump Card and every- 
thing except the Gold and 
Super Gold Cards will not see 
these disks either. 

[Editor - JMS has a large 
stock of new, brand DD disks, 
in packs of 10, which will last 
for many, many issues of QL 
Today. They can also be pur- 
chased in packs of 10 from 
JMS at reasonable prices] 


Winter is Coming out our 


Drives Have No Jumpers 
HD drives are fairly cheap al 
though they are not, these 
days, supplied with jumpers to 
allow drive selection. If you do 
want to replace your DD drives 
with HD ones and need to set 
up flot_ and flp2_ with a pair of 
modern drives the way to do it 
is to put a twist into the cable 
that feeds the drive that you 
want to flpi_. The PC twisted 
cable will not work for this 
(what a surprise!) but the twist 
is simple to do. 

Here then is my ‘Teaching 
Grandmothers to Suck Eggs’ 
section for this month. All you 
know need to know to make a 
drive cable. 

lf you have a PC floppy cable 
with three connectors on it you 
can cut the last plug off using 
a sharp modelling knife leaving 
you with a cable which can be 
adapted for use on a QL. 

It is worth noting here that, 
although most PC hardware is 
approaching rocket science 
with fast processors, memory 
and drives, the humble cable 
has remained firmly in. the 
stone ages. Most new cables 
come with the old connector 
on them for the 5.25’ drive 
which was obsolete when the 
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DILWYN JONES 


OL P.D. SOFTWARE LIBRARY SERVICE 


A brand new PD software library service from QL author Dilwyn Jones. Hundreds of 
freeware, shareware and PD programs available on floppy disk at a price of just £1.00 per 
disk (or just 75 pence if you supply the floppy disk). Programs are normally supplied on HD 
disks unless you specifically request DD disks. 


CATALOGUE 


To obtain a free catalogue of the entire software library: 


1. Send me a formatted HD or DD disk and return postage, or 
2. Download the catalogue from my website (see address below), or 
3. By email — just send me an email to ask for the catalogue as a text file. 


CD-ROMs 


(Also available from O-Celt Computing in Ireland) 


QL EMULATORS CD £5.06 - All of the available QL emulators! 
QL PD-CDR £5.00 - Gérard Plavec’s software collection! 
LINE DESIGN CLIPART CD £16.06 - Huge collection of Line Design clipart! 
QL RELIGION CD £10.06 — A collection of bibles, religious texts, clipart etc 


The CD-ROMs are supplied in OXL.WIN format on an ISO-9660 CD-R for use with OXL, 
OPC, QemuLator v2, uQLx, 040, O60 (systems able to read OXL.WIN media) 


POSTAGE UK/Europe: add £1.00, Rest Of World: add £2.00. 
PAYMENT In UK Pounds Sterling currency. Cheques payable to DILWYN JONES. 


Dilwyn Jones, 41 Bro Emrys, Tal-y-bont, Bangor, Gwynedd, LILS7 3YT, U.K. 
Email:dilwyn.jones@dj.softnet.co.uk 
Website: http://www.soft.net.uk/dj/index.html 


Note: Although this service is run by the editor of OL Today magazine, it is a completely separate venture which 
has no connection with the publisher of this magazine. Software is supplied free of charge, apart from copying and 
media charges etc to cover costs, and without any warranty other than to the replacement of defective media (e.g. 

“bad or changed medium” errors ete.).In other words, usual PD library terms. E & OE. 


QL loday 


QL was in its prime. They al- 
most all have at least three 3.5" 
drive connectors on them even 
though no PC has more than 
one floppy and very few PC 
files have not been bloated to 
a size that wil not fit on a 
floppy anyway. That, however, 
is another argument. 


Meanwhile oack on the 
workbench... 


that the wire marked as 1 
coincides with the little triangle 
marked on the connector and 
clamp the unit together This 
should then be plugged into 
the drives and the last one on 
the line will be flpi_. The first 
connector on which the wires 
pass straight through will be 
flo2_. 

And now, as they say in the 
dreadful shampoo advert, ‘here 


of any unprotected disks in the 
drive. 


Going Native Can 


Have Advantages 

Uses of the internet will, no 
doubt, have encountered the 
nasty SirCam virus over recent 
months. it has become the 
most prevalent virus on the 
internet and, in it's new guise, it 
does the neat trick of sending 


comes the science’ - just in | 

Having successfully decapita- case you want to know itself without displaying the 
ted the original cable lay it flat ; address of the host. This 
2 Scume tere and ae Shugart 34 way. means is 7. ihe ‘ 
the first wire. This is usually 90000 T7777 TTT Tere renn impossible to block an 
marked in red or black. Count Sa ee cannot warn 
outwards from that and make peg |. | 2 DISK CHANGE the sender that he has a 
an incision separating lines 1 to 3 4 IN USE virus. Most of these viru- 
9 from the other 25. then count 5 | 6 SEL 4 ses do little damage to 
three wires and make another 2 | 8 INDEX the host computer and 

incision. You should cut about eS just get into the add 
: | tt "| 42 ser 2 just get into the address 
one and a half inches back 13 . | 44 SEL 3 book of the machine and 
along the plastic which divides 15 | J 16 MOTOR ON L use that to send them- 
the lines being very careful not ah 1 See selves to other users 
i i ro S 19 .- 20. STEP L Nik 
Oo expose the wire. See 21 32 WR DATA L ike many Demon custo- 
picture 1. 23 24 WR GATE L mers | use the Turnpike 
25 26 TRACK 00 L program to send and 
5 ie peas” receive email and that has 
31 32 SIDE SEL been immune to virus 
33 34 READY attack because it does 


Once you have done this take 
the three centre wires and 
twist then through 180 de- 
grees. See picture 2. 


Line up the twisted wire with 
those which remain. Place the 
whole ripbon cable end into a 
new 36 way IDC header so 
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The diagram above came from 
Keith Mitchells hardware file 
and shows an IDC connection. 
As you can see all of the odd 
numbered cables are ground 
and the even ones are the 
only ones to do anything. By 
cutting the cable at lines 9 and 
12 and reversing it you are, 
effectively, changing the drive 
selection. A crude way to 
achieve it but there you are. 
On those drives which have no 
bump polarisation (ie. the little 
bit of plastic that protrudes 
from the plug) you can easily 
reverse the cable, thus ap- 
plying signal where there 
should be earth. This usually 
results in the drive spinning 
continuously with the light on 
and the complete destruction 


not follow the Micro$oft 

model. The latest version 
of Turnpike, however, is closer 
to the M$ original so | wonder 
quite how vulnerable it is. 
This virus does one other 
thing when it sends itself to 
addresses in the list. It selects 
a file at random from your 
documents directory —_ and 
sends that. When the recipient 
opens the file the virus at- 
tacks. The whole point of this 
discourse is that we received 
one of these at work a week 
or so ago. The person | work 
with was very interested in the 
file he received because he 
knew the sender as a busi 
ness rival and it seemed to be 
an interesting document. Being 
sensible he did not open it but 
was consumed by curiosity. 
The QL’s immunity to virus 
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activity came in very handy 
and | took the file home and 
converted it to a plain text file 
for him. 

A Qubide system can also 
prove very useful to non QL 
users. In the past | have been 
able to connect drives which 
have had their maps so badly 
trashed that the PCs FDisk 
cannot get into them. Once 
formatted on the Qubide they 
can then be resurrected on the 
PC with no trouble. | used this 
method when | had the shop 
and rescued many drives this 
way but | am not sure what the 
upper limit, in Mb, that the 
Qubide can see. The Qubide 
seems fairly unique in doing 
this since the Q 40. partition 
program provided by Tony 
Tebby does not seem able to 
do it. 


And Finally a Little on 


the CD 

Another thing | have been 
looking into this month is the 
CD driver and OXLtools suite. 
My total failure to get this 
working has probably been 
due to the CD drive which is 
connected to the Q 40. The 


Help request 


Jeff Wass asks: 


When ProWesS is loaded with QPC2 in Win- 
dows98 the buttons in the button frame will 
appear in a random order each time. Do you 


know of a reason for this? 


We don't know, but our readers may. 


drive does not seem to yield 
its ID to the system although | 
can open and shut the doors. 
There have been reports of 
people getting this to work on 
the user group and Wolfgang 
Lenerz (two mentions in this 
column, begad!} has reported a 
staggering length of time to 
get his QXLWIN file copied 
over to his new Q60. The 
slowness of the operation has 
many causes, Slave Blocks in 
SMSQ/E and a lack of optimi- 
sation in the driver software to 
name but two but the driver is 
an Alpha version and, as Wolf- 
gang himself remarked, you 
have to be impressed that both 
the software and the hardware 
worked continuously for more 
than a day without crashing or 
corrupting data. As he also 
said MicroSoft cannot even get 
some of their release versions 
to do that most of the time. | 
hope to get a new CD ROM 
Drive next month and try it out 
then. 


Snail Mail or Email? 

Tony Firshman has completed 
the task of re-assembling the 
mail database for the QL 
Users. This has been done to 
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allow those of you who have 
email access to get a direct 
mail with news of coming 
shows. The emails will only be 
used for this purpose so you 
will not be bombarded with 
advertising from us (as if there 
was anything new to sell). If 
you have not received an email 
from Tony about the coming 
ralt of events then please let 
him have your email address 
as soon as possible: 
tony@firshman.demon.co.uk 
We have already had a com- 
plaint, in particularly haughty 
terms, calling this spam. Consi- 
dering we are mostly sending 
very occasional show notifica- 
tions with a bit at the bottom 
saying who will be attending 
that is a bit rich! If you don't 
want to receive these mails 
then a polite note to Tony will 
remove you from it. Each email 
we send will mean that we do 
not have to send out paper 
copy saving both trees and 
our hard earned cash so 
please let us have your details. 
lf you have received neither a 
email nor a paper notice from 
us about the show contact 
Tony to get your details onto 
the mailing list. 


John Taylor writes: 


This chap knows his PC. 
Try all the options, but NOT crash, It's hilarious. 
Try this internet site: 


http://128.241.244.96/portal/uploads/ 


Any idea? Please write to QL Today! 


Any other help required? Write to us too! 


27000/27549_winrg.swf 


The editors amused themself “checking out’ all 


Really Good! 


After reading through QL Today - did you notice something? We have printed the 
masters in 1440 dpi on an EPSON Stylus Color 900 instead of a 600dpi laser printer. 
Quite a difference, isn’t it!? Let’s hope the printer’s copiers do net get stuck on the 
special 1440 dpi paper. If it works then we will keep this quality! “| 


the features of Windows RG - if seems to be 


Saturday, 10th of November, 10:00 to 16:00 
Pleincollege St. Joris, Roostenlaan 296 


This time, the dealers plan to attend again. 


OL Show - (F) Paris 
Saturday, 13th of October, 10:00 to 16:00 
Universite Paris, 82 Rue de la Liberte, Saint Denis 

Room number B231 
Métro - Ligne 13, terminus Saint-Denis - Université. 

Bus - lignes 253, 254, 255, 260, 268, 356, 361 _ 

http://www.univ-paris8.fr/up8/moyens_d_acces.shtml _/ 


Security first! 


We would like to stress that credit card orders without card verification | 
| code cannot be processed anymore as of October, Ist, 2001. 
| All orders which we received so far did not specify any card verification | 
| code, but at the moment, it is an option. This will stop from October on! | 
| Also, this code will not be stored in any database: therefore you have to | 


| provide the code with EVERY order, even if it is a successive order. 
| Please add this code to every order, otherwise there will be unnecessary | 
| delays! | 
| Remember: the card verification code is on the reverse side of your card, | 
| in the signature field: the three digit to the very right (next to all or part of | 
| your credit card number)! : 


